Skip the RV printing test under threads until fixed.
[p5sagit/p5-mst-13.2.git] / epoc / createpkg.pl
CommitLineData
14bdf8d3 1#!/usr/bin/perl
2
3use File::Find;
4use Cwd;
5
ed79a026 6$VERSION="5.7";
d5ff79b3 7$PATCH="1";
8$EPOC_VERSION=27;
3a2f06e9 9$CROSSCOMPILEPATH=cwd;
b250498f 10$CROSSREPLACEPATH="H:\\perl";
14bdf8d3 11
12
13sub filefound {
14 my $f = $File::Find::name;
15
d5ff79b3 16 return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/i);
14bdf8d3 17 my $back = $f;
18
19 $back =~ s|$CROSSCOMPILEPATH||;
20
21 $back =~ s|/|\\|g;
22
23 my $psiback = $back;
24
f83d2536 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 31open OUT,">perl.pkg";
32
33print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
d5ff79b3 34print OUT "\"$CROSSREPLACEPATH\\Artistic\"-\"\",FT,TA\n";
ed79a026 35print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\system\\programs\\perl.exe\"\n";
14bdf8d3 36
37find(\&filefound, cwd.'/lib');
f83d2536 38print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n"
14bdf8d3 39
40