Use fork if available.
Perl 5 Porters [Thu, 28 Dec 1995 03:06:11 +0000 (03:06 +0000)]
installman

index aab0c22..6c99682 100755 (executable)
@@ -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;