From 00acd7938b4d76d93a90aae1dfa0e670678ab8b1 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 9 Apr 2001 09:33:07 +0000
Subject: install function now returns the return value of the system.

---
 perl-install/standalone.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 382af1651..2b403d567 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -8,8 +8,9 @@ $ENV{SHARE_PATH} ||= "/usr/share";
 sub pkgs_install {
     my ($in, @l) = @_;
     $in->suspend;
-    system('urpmi --auto --best-output ' . join(' ', @l));
+    my $ret = system('urpmi --auto --best-output ' . join(' ', @l));
     $in->resume;
+    $ret;
 }
 
 1;
-- 
cgit v1.2.1