X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fcreatepkg.pl;h=f6519a61c3c8bc4b2810713d6dc415e4bcc9175e;hb=b1d0c68a73b96487aa12a3ef91d32407ca246502;hp=51232625204e64bb08fbd5d8d55f5e75c1096746;hpb=14bdf8d3bfc4c68a9e0d4420c4db2eccd669ea5d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl
index 5123262..f6519a6 100644
--- a/epoc/createpkg.pl
+++ b/epoc/createpkg.pl
@@ -3,43 +3,39 @@
 use File::Find;
 use Cwd;
 
-$VERSION="5.005";
-$PATCH=62;
-$EPOC_VERSION=11;
-$CROSSCOMPILEPATH="Y:";
+$VERSION="5.9.5";
+$EPOC_VERSION=1;
 
 
 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;
+  my $f = $File::Find::name;
+    
+  return if ( $f =~ /CVS|Unicode|unicore|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$|\.t$/i);
+  my $back = $f;
 
-    $psiback =~ s/\\perl$VERSION\\perl$VERSION\_$PATCH\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i;
+  my $psiback = $back;
 
-    print OUT "\"$back\"-\"!:$psiback\"\n"  if ( -f $f );
-;
+  $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 "\"\\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 "#{\"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 "@\"\\epoc32\\release\\marm\\rel\\stdlib.sis\",(0x010002c3)\n"
+open IN,  "<Artistic";
+open OUT, ">Artistic.txt";
+while (my $line = <IN>) {
+  chomp $line;
+  print OUT "$line\r\n";
+}
 
+close IN;
+close OUT;