use File::Find;
use Cwd;
-$VERSION="5.005";
-$PATCH=63;
-$EPOC_VERSION=16;
+$VERSION="5.7";
+$PATCH="1";
+$EPOC_VERSION=27;
$CROSSCOMPILEPATH=cwd;
-$CROSSREPLACEPATH="H:\\devel\\perl5.005_63";
+$CROSSREPLACEPATH="H:\\perl";
sub filefound {
my $f = $File::Find::name;
- return if ( $f =~ /unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i);
+ return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/i);
my $back = $f;
$back =~ s|$CROSSCOMPILEPATH||;
my $psiback = $back;
- $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i;
+ $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION.$PATCH\\/i;
print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n" if ( -f $f );
;
open OUT,">perl.pkg";
print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
-
-print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\perl.exe\"\n";
+print OUT "\"$CROSSREPLACEPATH\\Artistic\"-\"\",FT,TA\n";
+print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\system\\programs\\perl.exe\"\n";
find(\&filefound, cwd.'/lib');
-print OUT "@\"G:\\lib\\stdlib.sis\",(0x010002c3)\n"
+print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n"