Bah. %X doesn't mean 0xC1, it means 0XC1. So let's %x.

[p5sagit/p5-mst-13.2.git] / epoc / createpkg.pl

diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl
index 65a881f..5ce70fc 100644 (file)
--- a/epoc/createpkg.pl
+++ b/epoc/createpkg.pl
@@ -4,8 +4,8 @@ use File::Find;
 use Cwd;
 
 $VERSION="5.7";
-$PATCH="0";
-$EPOC_VERSION=24;
+$PATCH="1";
+$EPOC_VERSION=27;
 $CROSSCOMPILEPATH=cwd;
 $CROSSREPLACEPATH="H:\\perl";
 
@@ -13,7 +13,7 @@ $CROSSREPLACEPATH="H:\\perl";
 sub filefound {
     my $f = $File::Find::name;
     
-    return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i);
+    return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/i);
     my $back = $f;
 
     $back =~ s|$CROSSCOMPILEPATH||;
@@ -31,7 +31,7 @@ sub filefound {
 open OUT,">perl.pkg";
 
 print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
-
+print OUT "\"$CROSSREPLACEPATH\\Artistic\"-\"\",FT,TA\n";
 print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\system\\programs\\perl.exe\"\n";
 
 find(\&filefound, cwd.'/lib');