Commit | Line | Data |
14bdf8d3 |
1 | #!/usr/bin/perl |
2 | |
3 | use File::Find; |
4 | use Cwd; |
5 | |
6 | $VERSION="5.005"; |
7 | $PATCH=62; |
8 | $EPOC_VERSION=11; |
9 | $CROSSCOMPILEPATH="Y:"; |
10 | |
11 | |
12 | sub filefound { |
13 | my $f = $File::Find::name; |
14 | |
15 | return if ( $f =~ /ExtUtils|unicode|CGI|CPAN|Net|IPC|User|DB.pm/i); |
16 | my $back = $f; |
17 | |
18 | $back =~ s|$CROSSCOMPILEPATH||; |
19 | |
20 | $back =~ s|/|\\|g; |
21 | |
22 | my $psiback = $back; |
23 | |
24 | $psiback =~ s/\\perl$VERSION\\perl$VERSION\_$PATCH\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i; |
25 | |
26 | print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f ); |
27 | ; |
28 | } |
29 | |
30 | |
31 | |
32 | |
33 | |
34 | open OUT,">perl.pkg"; |
35 | |
36 | print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n"; |
37 | |
38 | print OUT "\"\\epoc32\\release\\marm\\rel\\perl.exe\"-\"!:\\perl.exe\"\n"; |
39 | print OUT "\"\\perl$VERSION\\perl${VERSION}_$PATCH\\epoc\\Config.pm\"-\"!:\\perl\\lib\\$VERSION$PATCH\\Config.pm\"\n"; |
40 | |
41 | find(\&filefound, cwd.'/lib'); |
42 | |
43 | print OUT "@\"\\epoc32\\release\\marm\\rel\\stdlib.sis\",(0x010002c3)\n" |
44 | |
45 | |