From d80af1f04c4a99849d8bcc61a337ea0a9dbe5683 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Apr 2005 10:07:38 +0000 Subject: have a valid return value in ->ensure_is_installed_if_available --- perl-install/do_pkgs.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm index 765c7717b..f8ed44028 100644 --- a/perl-install/do_pkgs.pm +++ b/perl-install/do_pkgs.pm @@ -41,8 +41,10 @@ sub ensure_binary_is_installed { sub ensure_is_installed_if_available { my ($do, $pkg, $file) = @_; - if (! -e "$::prefix$file" && !$::testing) { - $do->what_provides($pkg) and $do->install($pkg); + if (-e "$::prefix$file" || $::testing) { + 1; + } else { + $do->what_provides($pkg) && $do->install($pkg); } } -- cgit v1.2.1