home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / Perl / Install < prev    next >
Encoding:
Text File  |  1993-10-23  |  515 b   |  21 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}>ToDistr || Exit 1
  2. ToDistr > ToInstall
  3. Delete -y ToDistr
  4. ToInstall
  5. Delete -y ToInstall
  6. Exit
  7.  
  8. #!/usr/bin/perl
  9.  
  10. ($bin, $privlib, $helpdir) = @ARGV;
  11.  
  12. print "Set Exit 0\n";
  13. print "Backup -a -c Perl -to $bin\n" 
  14.     if (-e "Perl");
  15. print "Backup -a -c :lib:≈ -to $privlib\n"
  16.     if (-d ":lib");
  17. print "Backup -a -c PerlHelp PerlHelp.index -to $helpdir\n" 
  18.     if (-e "PerlHelp" && -e "PerlHelp.index");
  19. print "Backup -a -c UserStartup∂•Perl -to \{MPW\}\n" 
  20.     if (-e "UserStartup•Perl");
  21. print "Exit 0"