From b29d8d1397a78458b8d5add8cef3da1f1d5fdf3e Mon Sep 17 00:00:00 2001
From: Perl 5 Porters <perl5-porters.nicoh.com>
Date: Thu, 28 Dec 1995 03:06:11 +0000
Subject: Use fork if available.

---
 installman | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'installman')

diff --git a/installman b/installman
index aab0c22fc6..6c99682334 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;
-- 
cgit v1.2.1