From 8bcbbb6d0b50488c58e38f624868e680c9acaa97 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 30 Aug 2002 16:41:46 +0000
Subject: fixed possible problem with is_installed and are_installed.

---
 perl-install/install_any.pm | 4 ++--
 1 file 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;
 }
 
-- 
cgit v1.2.1