home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / MacPerl 4.1.3 / Perl / Specialize < prev    next >
Encoding:
Text File  |  1993-10-23  |  247 b   |  20 lines  |  [TEXT/MPS ]
  1. Perl -S -x "{0}" "{Active}.§">"{TempFolder}Specialize"
  2. Catenate "{TempFolder}Specialize" > "{Active}.§"
  3. Exit
  4. #!perl
  5.  
  6. print "#ifdef macintosh\n";
  7.  
  8. while (<>) {
  9.     $text .= $_;
  10.     
  11.     s/stderr/perldbg/;
  12.     
  13.     print;
  14. }
  15.  
  16. print <<_END_;
  17. #else
  18. $text#endif
  19. _END_
  20.