VMS fix

[perl5.git] / epoc / createpkg.pl

diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl
index 5123262..5ce70fc 100644 (file)
--- a/epoc/createpkg.pl
+++ b/epoc/createpkg.pl
@@ -3,16 +3,17 @@
 use File::Find;
 use Cwd;
 
-$VERSION="5.005";
-$PATCH=62;
-$EPOC_VERSION=11;
-$CROSSCOMPILEPATH="Y:";
+$VERSION="5.7";
+$PATCH="1";
+$EPOC_VERSION=27;
+$CROSSCOMPILEPATH=cwd;
+$CROSSREPLACEPATH="H:\\perl";
 
 
 sub filefound {
     my $f = $File::Find::name;
     
-    return if ( $f =~ /ExtUtils|unicode|CGI|CPAN|Net|IPC|User|DB.pm/i);
+    return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/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\\Artistic\"-\"\",FT,TA\n";
+print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\system\\programs\\perl.exe\"\n";
 
 find(\&filefound, cwd.'/lib');
-
-print OUT "@\"\\epoc32\\release\\marm\\rel\\stdlib.sis\",(0x010002c3)\n"
+print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n"