From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 21 Apr 2002 21:04:19 +0000 (+0000)
Subject: Mopup of #16048.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e0a1f643a0cdeaeaadd4feec0912681a40607520;p=p5sagit%2Fp5-mst-13.2.git

Mopup of #16048.

p4raw-id: //depot/perl@16051
---

diff --git a/pp_sys.c b/pp_sys.c
index 5e1908f..03b1634 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4123,17 +4123,17 @@ PP(pp_system)
 	    fcntl(pp[1], F_SETFD, FD_CLOEXEC);
 #endif
 	}
+	if (PL_op->op_flags & OPf_STACKED) {
+	    SV *really = *++MARK;
+	    value = (I32)do_aexec5(really, MARK, SP, pp[1], did_pipes);
+	}
+	else if (SP - MARK != 1)
+	    value = (I32)do_aexec5(Nullsv, MARK, SP, pp[1], did_pipes);
+	else {
+	    value = (I32)do_exec3(SvPVx(sv_mortalcopy(*SP), n_a), pp[1], did_pipes);
+	}
+	PerlProc__exit(-1);
     }
-    if (PL_op->op_flags & OPf_STACKED) {
-	SV *really = *++MARK;
-	value = (I32)do_aexec5(really, MARK, SP, pp[1], did_pipes);
-    }
-    else if (SP - MARK != 1)
-	value = (I32)do_aexec5(Nullsv, MARK, SP, pp[1], did_pipes);
-    else {
-	value = (I32)do_exec3(SvPVx(sv_mortalcopy(*SP), n_a), pp[1], did_pipes);
-    }
-    PerlProc__exit(-1);
 #else /* ! FORK or VMS or OS/2 */
     PL_statusvalue = 0;
     result = 0;