X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fcreatepkg.pl;h=5de45f44a5b58325bbc7bb9ef2a9f9e9d6bb7df1;hb=aebd1ac7983c6d00ee0b79f7eb3bc5904d3b2bdf;hp=39cd8c4666f4295d484e7047ff8306bc5bc776bf;hpb=02a99678fa25e3993355f34f3aaf4bc0c9f2c745;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl
index 39cd8c4..5de45f4 100644
--- a/epoc/createpkg.pl
+++ b/epoc/createpkg.pl
@@ -3,39 +3,37 @@
 use File::Find;
 use Cwd;
 
-$VERSION="5.7";
-$PATCH="1";
-$EPOC_VERSION=27;
+$VERSION="5.9.2";
+$EPOC_VERSION=1;
 
 
 sub filefound {
 
   my $f = $File::Find::name;
     
-  return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/i);
+  return if ( $f =~ /CVS|Unicode|unicore|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$|\.t$/i);
   my $back = $f;
 
   my $psiback = $back;
 
-  $psiback =~ s|.*/lib/|\\perl\\lib\\$VERSION.$PATCH\\|;
-
+  $psiback =~ s|.*/lib/|\\emx\\lib\\perl\\$VERSION\\|;
+  $psiback =~ s|/|\\|g;
   print OUT "\"$back\"-\"!:$psiback\"\n"  if ( -f $f );
 }
 
 open OUT,">perl.pkg";
 
-print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
-print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TA\n";
-print OUT "\"" . cwd . "/perl\"-\"!:\\system\\programs\\perl.exe\"\n";
+print OUT "#{\"perl$VERSION\"},(0x100051d8),0,$EPOC_VERSION,0\n";
+print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TC\n";
+print OUT "\"" . cwd . "/perl\"-\"!:\\emx\\bin\\perl.exe\"\n";
 
 find(\&filefound, cwd.'/lib');
-# print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n";
 
 open IN,  "<Artistic";
 open OUT, ">Artistic.txt";
 while (my $line = <IN>) {
   chomp $line;
-  print OUT "$line\x13\x10";
+  print OUT "$line\r\n";
 }
 
 close IN;