summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-06-24 13:44:43 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-24 13:44:43 +0000
commite7766f8964be5cd2150ea7e46155fe2cd06b8017 (patch)
treebb63fa1257e4e68126f1927f2807034320fe2980 /pp_sys.c
parenta932d22293c2798cd17219a811e38e2ddc2f7758 (diff)
downloadperl-e7766f8964be5cd2150ea7e46155fe2cd06b8017.tar.gz
The #10881 was too vigorous in pp_system() in moving 'unused'
variables. p4raw-id: //depot/perl@10890
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index d92541255e..2094fddea2 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;