From ed66511b2f3586fab70a7f125f8e4a411aac8afe Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 3 Jan 2005 15:39:31 +0000
Subject: Make do_pkgs::install() return the number of packages actually
 installed (used by printerdrake, apparently)

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

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index e139b4b64..adf143f55 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -404,6 +404,7 @@ sub beforeInstallPackages {
     install_any::getAndSaveFile("install/oem-theme.rpm", "$o->{prefix}/usr/share/oem-theme.rpm");
 }
 
+#- returns number of packages installed, 0 if none were selected.
 sub pkg_install {
     my ($o, @l) = @_;
     log::l("selecting packages " . join(" ", @l));
@@ -420,6 +421,7 @@ sub pkg_install {
 	$o->installPackages;
     } else {
 	log::l("all packages selected are already installed, nothing to do");
+	0;
     }
 }
 
-- 
cgit v1.2.1