From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 24 Jun 2001 13:44:43 +0000 (+0000)
Subject: The #10881 was too vigorous in pp_system() in moving 'unused'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7766f8964be5cd2150ea7e46155fe2cd06b8017;p=p5sagit%2Fp5-mst-13.2.git

The #10881 was too vigorous in pp_system() in moving 'unused'
variables.

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

diff --git a/pp_sys.c b/pp_sys.c
index d925412..2094fdd 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3975,6 +3975,8 @@ PP(pp_system)
     I32 value;
     STRLEN n_a;
     int result;
+    int pp[2];
+    I32 did_pipes = 0;
 
     if (SP - MARK == 1) {
 	if (PL_tainting) {
@@ -3989,8 +3991,6 @@ PP(pp_system)
     Pid_t childpid;
     int status;
     Sigsave_t ihand,qhand;     /* place to save signals during system() */
-    I32 did_pipes = 0;
-    int pp[2];
 
     if (PerlProc_pipe(pp) >= 0)
 	did_pipes = 1;