diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-10 05:27:03 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-10 05:27:03 +0000 |
| commit | 3a2f06e93704a4187f4ca10ac210246cacbd9b05 (patch) | |
| tree | e2098523c3499c3b9f0441e69fa72fd71a73907a /epoc/createpkg.pl | |
| parent | 5a3e78123e3b27b54e7f651bd5fa051044f04189 (diff) | |
| download | perl-3a2f06e93704a4187f4ca10ac210246cacbd9b05.tar.gz | |
EPOC port update (from Olaf Flebbe <O.Flebbe@science-computing.de>)
p4raw-id: //depot/perl@4782
Diffstat (limited to 'epoc/createpkg.pl')
| -rw-r--r-- | epoc/createpkg.pl | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl index 5123262520..7270504974 100644 --- a/epoc/createpkg.pl +++ b/epoc/createpkg.pl @@ -4,15 +4,16 @@ use File::Find; use Cwd; $VERSION="5.005"; -$PATCH=62; -$EPOC_VERSION=11; -$CROSSCOMPILEPATH="Y:"; +$PATCH=63; +$EPOC_VERSION=16; +$CROSSCOMPILEPATH=cwd; +$CROSSREPLACEPATH="H:\\devel\\perl5.005_63"; sub filefound { my $f = $File::Find::name; - return if ( $f =~ /ExtUtils|unicode|CGI|CPAN|Net|IPC|User|DB.pm/i); + return if ( $f =~ /unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i); my $back = $f; $back =~ s|$CROSSCOMPILEPATH||; @@ -21,25 +22,19 @@ sub filefound { my $psiback = $back; - $psiback =~ s/\\perl$VERSION\\perl$VERSION\_$PATCH\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i; + $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i; - print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f ); + 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 "\"\\epoc32\\release\\marm\\rel\\perl.exe\"-\"!:\\perl.exe\"\n"; -print OUT "\"\\perl$VERSION\\perl${VERSION}_$PATCH\\epoc\\Config.pm\"-\"!:\\perl\\lib\\$VERSION$PATCH\\Config.pm\"\n"; +print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\perl.exe\"\n"; find(\&filefound, cwd.'/lib'); - -print OUT "@\"\\epoc32\\release\\marm\\rel\\stdlib.sis\",(0x010002c3)\n" +print OUT "@\"G:\\lib\\stdlib.sis\",(0x010002c3)\n" |