From 53f3ae91159ce352c9e7f42a40798e6fe9eac1b1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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