diff options
Diffstat (limited to 'epoc/createpkg.pl')
| -rw-r--r-- | epoc/createpkg.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl index 7270504974..6977bd385f 100644 --- a/epoc/createpkg.pl +++ b/epoc/createpkg.pl @@ -3,17 +3,17 @@ use File::Find; use Cwd; -$VERSION="5.005"; -$PATCH=63; -$EPOC_VERSION=16; +$VERSION="5.5"; +$PATCH="650"; +$EPOC_VERSION=19; $CROSSCOMPILEPATH=cwd; -$CROSSREPLACEPATH="H:\\devel\\perl5.005_63"; +$CROSSREPLACEPATH="H:\\devel\\perl5.5.650"; 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$/i); my $back = $f; $back =~ s|$CROSSCOMPILEPATH||; @@ -22,7 +22,7 @@ sub filefound { 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 ); ; @@ -35,6 +35,6 @@ print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n"; print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\perl.exe\"\n"; find(\&filefound, cwd.'/lib'); -print OUT "@\"G:\\lib\\stdlib.sis\",(0x010002c3)\n" +print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n" |