summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-08-30 16:41:46 +0000
committerFrancois Pons <fpons@mandriva.com>2002-08-30 16:41:46 +0000
commit8bcbbb6d0b50488c58e38f624868e680c9acaa97 (patch)
tree2eeb6ebf1b2f33c521a9364461dec6776d3486c6 /perl-install
parentdbfaf1fb8c9176768e6658973830ed501d0ce175 (diff)
downloaddrakx-8bcbbb6d0b50488c58e38f624868e680c9acaa97.tar
drakx-8bcbbb6d0b50488c58e38f624868e680c9acaa97.tar.gz
drakx-8bcbbb6d0b50488c58e38f624868e680c9acaa97.tar.bz2
drakx-8bcbbb6d0b50488c58e38f624868e680c9acaa97.tar.xz
drakx-8bcbbb6d0b50488c58e38f624868e680c9acaa97.zip
fixed possible problem with is_installed and are_installed.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 05939b2a8..8aad17682 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1197,7 +1197,7 @@ sub is_installed {
my ($do, @l) = @_;
foreach (@l) {
my $p = pkgs::packageByName($do->{o}{packages}, $_);
- $p && $p->flag_selected or return;
+ $p && $p->flag_available or return;
}
1;
}
@@ -1206,7 +1206,7 @@ sub are_installed {
my ($do, @l) = @_;
grep {
my $p = pkgs::packageByName($do->{o}{packages}, $_);
- $p && $p->flag_selected;
+ $p && $p->flag_available;
} @l;
}