home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / perl / 7500 < prev    next >
Encoding:
Text File  |  1992-12-18  |  1.1 KB  |  36 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!ftpbox!mothost!merlin.dev.cdx.mot.com!fendahl.dev.cdx.mot.com!mcook
  3. From: mcook@fendahl.dev.cdx.mot.com (Michael Cook)
  4. Subject: Re: system() vs exec()
  5. Message-ID: <mcook.724624157@fendahl.dev.cdx.mot.com>
  6. Sender: news@merlin.dev.cdx.mot.com (USENET News System)
  7. Nntp-Posting-Host: fendahl.dev.cdx.mot.com
  8. Organization: Motorola Codex, Canton, Massachusetts
  9. References: <mcook.724446650@fendahl.dev.cdx.mot.com> <1992Dec16.160845.17636@news.eng.convex.com> <2B30B274.616E@tct.com>
  10. Date: Thu, 17 Dec 1992 20:29:17 GMT
  11. Lines: 23
  12.  
  13. chip@tct.com (Chip Salzenberg) writes:
  14.  
  15. >According to tchrist@convex.COM (Tom Christiansen):
  16. >>    sub system { fork ? wait : exec @_ }
  17.  
  18. >What if fork fails?  Try instead:
  19.  
  20. >    sub system {
  21. >        local($pid) = fork;
  22. >        return undef unless defined($pid);
  23. >        $pid ? wait : exec @_;
  24. >    }
  25.  
  26. If you won't grant me that system() is broken, then you must grant me that the
  27. manpage is broken.  That was my point.
  28.  
  29. Besides, you've used @_ after you used local().  That's a Perl no-no.
  30.  
  31. Michael.
  32.  
  33. --
  34. sub a {local($d); print @_;}
  35. &a($a="Just ",$b="another ",$c="Perl ",$d="system ",$e="hacker,");
  36.