home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / epoc / createpkg.pl < prev    next >
Perl Script  |  2000-02-21  |  799b  |  41 lines
  1. #!/usr/bin/perl
  2.  
  3. use File::Find;
  4. use Cwd;
  5.  
  6. $VERSION="5.5";
  7. $PATCH="650";
  8. $EPOC_VERSION=19;
  9. $CROSSCOMPILEPATH=cwd;
  10. $CROSSREPLACEPATH="H:\\devel\\perl5.5.650";
  11.  
  12.  
  13. sub filefound {
  14.     my $f = $File::Find::name;
  15.     
  16.     return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i);
  17.     my $back = $f;
  18.  
  19.     $back =~ s|$CROSSCOMPILEPATH||;
  20.  
  21.     $back =~ s|/|\\|g;
  22.  
  23.     my $psiback = $back;
  24.  
  25.     $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION.$PATCH\\/i;
  26.  
  27.     print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n"  if ( -f $f );
  28. ;
  29. }
  30.  
  31. open OUT,">perl.pkg";
  32.  
  33. print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
  34.  
  35. print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\perl.exe\"\n";
  36.  
  37. find(\&filefound, cwd.'/lib');
  38. print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n"
  39.  
  40.  
  41.