home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / OS2 / ship.cmd < prev    next >
OS/2 REXX Batch file  |  1995-07-05  |  745b  |  43 lines
  1. extproc perl -Sx
  2. #!perl
  3.  
  4. $zipfile = "perl501m";
  5.  
  6. @files = grep(chomp, <DATA>);
  7.  
  8. open(F, "find OS2 lib pod ext/OS2 -type f -print|") or die "find";
  9. while (<F>) {
  10.   chomp;
  11.   next unless $_;
  12.   next if m'~$';
  13.   next if m'\.diff$'i;
  14.   next if m'\.html$'i;
  15.   next if m'/SSB'i;
  16.   next if m'^OS2/.*\.zip$'i;
  17.   next if m'^OS2/.*/save.cmd'i;
  18.   next if m'^lib/auto/GDBM_File'i;
  19.   if (m'^ext/OS2'i) {
  20.     next unless m'\.xs'i || m'\.pm'i || m'\.pl'i || m'/typemap$'i;
  21.   }
  22.   push @files, $_;
  23. }
  24. close(F);
  25.  
  26. open(F, "|zip -ru9@ $zipfile") or die "zip";
  27. foreach (@files) {
  28.   print F "$_\n";
  29. }
  30. close(F);
  31.  
  32. exit(0);
  33.  
  34. __END__
  35. README
  36. README.OS2
  37. Artistic
  38. Copying
  39. perl5.exe
  40. perl5.dll
  41. perl5x.exe
  42. patches
  43. ext/DynaLoader/dl_os2.xs