summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-09 11:12:07 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-09 11:12:07 +0000
commitb83d0f66f0a170a4b229a1bb9a20d8cf71b53eec (patch)
treea34d18bc7c6cff2785f2c738396369a5bc075b3b /perl-install/install_any.pm
parentd2a832531e9ac67039eee97aeec52710a1edea5e (diff)
downloaddrakx-b83d0f66f0a170a4b229a1bb9a20d8cf71b53eec.tar
drakx-b83d0f66f0a170a4b229a1bb9a20d8cf71b53eec.tar.gz
drakx-b83d0f66f0a170a4b229a1bb9a20d8cf71b53eec.tar.bz2
drakx-b83d0f66f0a170a4b229a1bb9a20d8cf71b53eec.tar.xz
drakx-b83d0f66f0a170a4b229a1bb9a20d8cf71b53eec.zip
simplify
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 2 insertions, 6 deletions
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 {