From 53f3ae91159ce352c9e7f42a40798e6fe9eac1b1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 21 Aug 2002 13:04:48 +0000 Subject: allow the saving in perl variable to be done even if the exit status is not 0 --- perl-install/run_program.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install') 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) { -- cgit v1.2.1