summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-01-03 15:39:31 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-01-03 15:39:31 +0000
commited66511b2f3586fab70a7f125f8e4a411aac8afe (patch)
tree51d50fd3373c0440c9db8ef87bbf85523e8eb48b /perl-install
parent5c182d7f50c4e5071e2283007351a2baa5bb847c (diff)
downloaddrakx-backup-do-not-use-ed66511b2f3586fab70a7f125f8e4a411aac8afe.tar
drakx-backup-do-not-use-ed66511b2f3586fab70a7f125f8e4a411aac8afe.tar.gz
drakx-backup-do-not-use-ed66511b2f3586fab70a7f125f8e4a411aac8afe.tar.bz2
drakx-backup-do-not-use-ed66511b2f3586fab70a7f125f8e4a411aac8afe.tar.xz
drakx-backup-do-not-use-ed66511b2f3586fab70a7f125f8e4a411aac8afe.zip
Make do_pkgs::install() return the number of packages actually installed
(used by printerdrake, apparently)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm2
1 files changed, 2 insertions, 0 deletions
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;
}
}