diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 13:44:43 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 13:44:43 +0000 |
commit | e7766f8964be5cd2150ea7e46155fe2cd06b8017 (patch) | |
tree | bb63fa1257e4e68126f1927f2807034320fe2980 /pp_sys.c | |
parent | a932d22293c2798cd17219a811e38e2ddc2f7758 (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |