diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/run_program.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index 4fc9393f6..44fe12899 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -71,9 +71,8 @@ sub raw { kill 9, $pid; return; } - $ok or return; - if ($stdout_raw && ref($stdout_raw)) { + if ($stdout_raw && ref($stdout_raw)) { if (ref($stdout_raw) eq 'ARRAY') { @$stdout_raw = cat_($stdout); } else { @@ -89,7 +88,7 @@ sub raw { } unlink $stderr; } - 1; + $ok; } else { if ($stderr && $stderr eq 'STDERR') { } elsif ($stderr) { |