diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 1999-11-01 21:46:54 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-01 19:56:28 +0000 |
| commit | 14bdf8d3bfc4c68a9e0d4420c4db2eccd669ea5d (patch) | |
| tree | b47dacfff4349f9e1310cc5b25f8c5399cf938d4 /epoc/createpkg.pl | |
| parent | faa2cb8c0495c9d7860866661a183a3885672f45 (diff) | |
| download | perl-14bdf8d3bfc4c68a9e0d4420c4db2eccd669ea5d.tar.gz | |
Patch for EPOC Support
To: perl5-porters@perl.org
Message-ID: <Pine.LNX.4.10.9911012045190.411-100000@dragon.science-computing.de>
p4raw-id: //depot/cfgperl@4506
Diffstat (limited to 'epoc/createpkg.pl')
| -rw-r--r-- | epoc/createpkg.pl | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl new file mode 100644 index 0000000000..5123262520 --- /dev/null +++ b/epoc/createpkg.pl @@ -0,0 +1,45 @@ +#!/usr/bin/perl + +use File::Find; +use Cwd; + +$VERSION="5.005"; +$PATCH=62; +$EPOC_VERSION=11; +$CROSSCOMPILEPATH="Y:"; + + +sub filefound { + my $f = $File::Find::name; + + return if ( $f =~ /ExtUtils|unicode|CGI|CPAN|Net|IPC|User|DB.pm/i); + my $back = $f; + + $back =~ s|$CROSSCOMPILEPATH||; + + $back =~ s|/|\\|g; + + my $psiback = $back; + + $psiback =~ s/\\perl$VERSION\\perl$VERSION\_$PATCH\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i; + + print OUT "\"$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"; + +find(\&filefound, cwd.'/lib'); + +print OUT "@\"\\epoc32\\release\\marm\\rel\\stdlib.sis\",(0x010002c3)\n" + + |