From b83d0f66f0a170a4b229a1bb9a20d8cf71b53eec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 9 Jan 2004 11:12:07 +0000
Subject: simplify

---
 perl-install/install_any.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index aaf0b2e8c..eff46faf9 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1169,12 +1169,8 @@ sub what_provides {
 }
 
 sub is_installed {
-    my ($do, @l) = @_;
-    foreach (@l) {
-	my $p = pkgs::packageByName($do->{o}{packages}, $_);
-	$p && $p->flag_available or return;
-    }
-    1;
+    my ($do, $name) = @_;
+    are_installed($do, $name);
 }
 
 sub are_installed {
-- 
cgit v1.2.1