equal
deleted
inserted
replaced
|
1 #!/usr/bin/perl |
1 # |
2 # |
2 # Copyright (c) 1996-2009 Nokia Corporation and/or its subsidiary(-ies). |
3 # Copyright (c) 1996-2009 Nokia Corporation and/or its subsidiary(-ies). |
3 # All rights reserved. |
4 # All rights reserved. |
4 # This component and the accompanying materials are made available |
5 # This component and the accompanying materials are made available |
5 # under the terms of the License "Eclipse Public License v1.0" |
6 # under the terms of the License "Eclipse Public License v1.0" |
18 require 5.003_07; |
19 require 5.003_07; |
19 no strict 'vars'; |
20 no strict 'vars'; |
20 use English; |
21 use English; |
21 use FindBin; # for FindBin::Bin |
22 use FindBin; # for FindBin::Bin |
22 |
23 |
23 my $PerlLibPath; # fully qualified pathname of the directory containing our Perl modules |
|
24 |
|
25 BEGIN { |
|
26 # check user has a version of perl that will cope require 5.005_03; |
|
27 # establish the path to the Perl libraries: currently the same directory as this script |
|
28 $PerlLibPath = $FindBin::Bin; # X:/epoc32/tools |
|
29 $PerlLibPath =~ s/\//\\/g; # X:\epoc32\tools |
|
30 $PerlLibPath .= "\\"; |
|
31 } |
|
32 |
|
33 use lib $PerlLibPath; |
|
34 use Modload; |
|
35 Load_SetModulePath($PerlLibPath); |
|
36 |
|
37 # Globals |
24 # Globals |
38 my $maksym = ""; |
25 my $maksym = ""; |
39 my $rombuild; |
26 my $rombuild; |
40 my $debug = 0; |
27 my $debug = 0; |
|
28 my $PerlLibPath; # fully qualified pathname of the directory containing our Perl modules |
|
29 my $on_windows; |
|
30 my $toolpath; |
|
31 |
|
32 sub nix_fixes { |
|
33 # Fix case-sensitivity offenders for unix/linux environment. |
|
34 $toolpath = $PerlLibPath; |
|
35 my $modload_pm = File::Spec->catfile($toolpath,"modload.pm"); |
|
36 my $ModLoad_pm = File::Spec->catfile($toolpath,"ModLoad.pm"); |
|
37 # Create symlinks for case-sensitively misnamed modules we need. |
|
38 unless ( -f $ModLoad_pm or -l $ModLoad_pm) { |
|
39 symlink($modload_pm,$ModLoad_pm); |
|
40 } |
|
41 } |
|
42 |
|
43 BEGIN { |
|
44 $on_windows = $^O =~ /^MSWin/ ? 1 : 0; |
|
45 # check user has a version of perl that will cope require 5.005_03; |
|
46 # establish the path to the Perl libraries: currently the same directory as this script |
|
47 $PerlLibPath = $FindBin::Bin; # X:/epoc32/tools |
|
48 # $PerlLibPath =~ s/\//\\/g; # X:\epoc32\tools |
|
49 # $PerlLibPath .= "\\"; |
|
50 nix_fixes(), unless ($on_windows); |
|
51 } |
|
52 |
|
53 use lib $PerlLibPath; |
|
54 use ModLoad; |
|
55 Load_SetModulePath($PerlLibPath); |
|
56 |
41 |
57 |
42 &args; |
58 &args; |
43 &main; |
59 &main; |
44 |
60 |
45 exit 0; |
61 exit 0; |