diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-08-30 16:41:46 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-08-30 16:41:46 +0000 |
| commit | 8bcbbb6d0b50488c58e38f624868e680c9acaa97 (patch) | |
| tree | 2eeb6ebf1b2f33c521a9364461dec6776d3486c6 /perl-install | |
| parent | dbfaf1fb8c9176768e6658973830ed501d0ce175 (diff) | |
| download | drakx-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.pm | 4 |
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; } |