From 200e32436e1dab0e7341394520b88703678b4911 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 21 Mar 2005 18:02:34 +0000 Subject: add ->is_available --- perl-install/do_pkgs.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm index 4bb6842a8..0bf8fedd8 100644 --- a/perl-install/do_pkgs.pm +++ b/perl-install/do_pkgs.pm @@ -45,7 +45,12 @@ sub ensure_is_installed_if_available { $do->what_provides($pkg) and $do->install($pkg); } } - + +sub is_available { + my ($do, $name) = @_; + $do->are_available($name); +} + sub is_installed { my ($do, $name) = @_; $do->are_installed($name); -- cgit v1.2.1