summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-01-03 10:15:35 +0000
committerFrancois Pons <fpons@mandriva.com>2001-01-03 10:15:35 +0000
commit9ee1d2a5e87fd1de5f9162f0a101145756451956 (patch)
treed49d2d17f1740284cf29a0b009cb78e7544c5cd3 /perl-install/install_steps.pm
parentd5c87faaaf828083638b50c7078e6cca2916f6fd (diff)
downloaddrakx-9ee1d2a5e87fd1de5f9162f0a101145756451956.tar
drakx-9ee1d2a5e87fd1de5f9162f0a101145756451956.tar.gz
drakx-9ee1d2a5e87fd1de5f9162f0a101145756451956.tar.bz2
drakx-9ee1d2a5e87fd1de5f9162f0a101145756451956.tar.xz
drakx-9ee1d2a5e87fd1de5f9162f0a101145756451956.zip
fixed usage with testing
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 55dbf6849..11abcb06c 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -302,7 +302,11 @@ sub pkg_install {
my ($o, @l) = @_;
log::l("selecting packages");
require pkgs;
- pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found") foreach @l;
+ if ($::testing) {
+ log::l("selecting package \"$_\"") foreach @l;
+ } else {
+ pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found") foreach @l;
+ }
my @toInstall = pkgs::packagesToInstall($o->{packages});
if (@toInstall) {
log::l("installing packages");