From d80af1f04c4a99849d8bcc61a337ea0a9dbe5683 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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