From: Perl 5 Porters <perl5-porters.nicoh.com>
Date: Thu, 28 Dec 1995 03:06:11 +0000 (+0000)
Subject: Use fork if available.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b29d8d1397a78458b8d5add8cef3da1f1d5fdf3e;p=p5sagit%2Fp5-mst-13.2.git

Use fork if available.
---

diff --git a/installman b/installman
index aab0c22..6c99682 100755
--- a/installman
+++ b/installman
@@ -121,7 +121,12 @@ sub cmd {
     local($cmd) = @_;
     print STDERR "  $cmd\n";
     unless ($notify) {
-	fork ? wait : exec $cmd;
+	if ($Config{d_fork}) {
+	    fork ? wait : exec $cmd;  # Allow user to ^C out of command.
+	}
+	else {
+	    system $cmd;
+	}
 	warn "Command failed!!\n" if $?;
     }
     return $? != 0;