Commit | Line | Data |
14bdf8d3 |
1 | #!/usr/bin/perl |
2 | |
3 | use File::Find; |
4 | use Cwd; |
5 | |
6 | $VERSION="5.005"; |
3a2f06e9 |
7 | $PATCH=63; |
8 | $EPOC_VERSION=16; |
9 | $CROSSCOMPILEPATH=cwd; |
10 | $CROSSREPLACEPATH="H:\\devel\\perl5.005_63"; |
14bdf8d3 |
11 | |
12 | |
13 | sub filefound { |
14 | my $f = $File::Find::name; |
15 | |
3a2f06e9 |
16 | return if ( $f =~ /unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i); |
14bdf8d3 |
17 | my $back = $f; |
18 | |
19 | $back =~ s|$CROSSCOMPILEPATH||; |
20 | |
21 | $back =~ s|/|\\|g; |
22 | |
23 | my $psiback = $back; |
24 | |
3a2f06e9 |
25 | $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i; |
14bdf8d3 |
26 | |
3a2f06e9 |
27 | print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n" if ( -f $f ); |
14bdf8d3 |
28 | ; |
29 | } |
30 | |
14bdf8d3 |
31 | open OUT,">perl.pkg"; |
32 | |
33 | print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n"; |
34 | |
3a2f06e9 |
35 | print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\perl.exe\"\n"; |
14bdf8d3 |
36 | |
37 | find(\&filefound, cwd.'/lib'); |
3a2f06e9 |
38 | print OUT "@\"G:\\lib\\stdlib.sis\",(0x010002c3)\n" |
14bdf8d3 |
39 | |
40 | |