From 06e4420b666bae299c6378a9bb9775239328c4c5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 21 Aug 2002 20:45:13 +0000
Subject: (ensure_is_installed): use $::prefix to test if file is installed

---
 perl-install/install_any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 8edbe0573..ae0281d51 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1176,12 +1176,12 @@ sub install {
 sub ensure_is_installed {
     my ($do, $pkg, $file, $auto) = @_;
 
-    if (! -e $file) {
+    if (! -e "$::prefix$file") {
 	$do->{o}->ask_okcancel('', _("The package %s needs to be installed. Do you want to install it?", $pkg), 1) 
 	  or return if !$auto;
 	$do->{o}->do_pkgs->install($pkg);
     }
-    if (! -e $file) {
+    if (! -e "$::prefix$file") {
 	$do->{o}->ask_warn('', _("Mandatory package %s is missing", $pkg));
 	return;
     }
-- 
cgit v1.2.1