From 10fcc5bad47867583aa19f031d870fac200a0c6d Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 13 Sep 2000 16:09:09 +0000
Subject: *** empty log message ***

---
 perl-install/any.pm           | 2 +-
 perl-install/install_steps.pm | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index a54cc115e..bc1ed3011 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -396,7 +396,7 @@ END
     commands::mkdir_("-p", "$prefix/usr/share/config");
     template2file("$ENV{SHARE_PATH}/kppprc.in", "$prefix/usr/share/config/kppprc", %toreplace);
 
-    miscellaneousNetwork($in, $prefix);
+    miscellaneousNetwork($prefix);
 }
 
 sub miscellaneousNetwork {
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 616c28b4b..6e36e3787 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -303,8 +303,13 @@ sub pkg_install {
     log::l("selecting packages");
     require pkgs;
     pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found") foreach @l;
-    log::l("installing packages");
-    $o->installPackages;
+    my @toInstall = pkgs::packagesToInstall($o->{packages});
+    if (@toInstall) {
+	log::l("installing packages");
+	$o->installPackages;
+    } else {
+	log::l("all packages selected are already installed, nothing to do")
+    }
 }
 
 sub pkg_install_if_requires_satisfied {
-- 
cgit v1.2.1