summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-21 20:45:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-21 20:45:13 +0000
commit06e4420b666bae299c6378a9bb9775239328c4c5 (patch)
treed469882aa4e7c6ea78b5eaec0272433e4b5d18ba /perl-install
parent415c14ce4ab2537f56ffc2fcc0fe990f6521e279 (diff)
downloaddrakx-06e4420b666bae299c6378a9bb9775239328c4c5.tar
drakx-06e4420b666bae299c6378a9bb9775239328c4c5.tar.gz
drakx-06e4420b666bae299c6378a9bb9775239328c4c5.tar.bz2
drakx-06e4420b666bae299c6378a9bb9775239328c4c5.tar.xz
drakx-06e4420b666bae299c6378a9bb9775239328c4c5.zip
(ensure_is_installed): use $::prefix to test if file is installed
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm4
1 files 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;
}