diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-03-21 18:02:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-03-21 18:02:34 +0000 |
| commit | 200e32436e1dab0e7341394520b88703678b4911 (patch) | |
| tree | 31a186a6c7e3e2bffc9008571f8f5a0fac8c574c | |
| parent | e669b090e505ad8272f7f78daf96305ec3f71469 (diff) | |
| download | drakx-200e32436e1dab0e7341394520b88703678b4911.tar drakx-200e32436e1dab0e7341394520b88703678b4911.tar.gz drakx-200e32436e1dab0e7341394520b88703678b4911.tar.bz2 drakx-200e32436e1dab0e7341394520b88703678b4911.tar.xz drakx-200e32436e1dab0e7341394520b88703678b4911.zip | |
add ->is_available
| -rw-r--r-- | perl-install/do_pkgs.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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); |