diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-21 20:45:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-21 20:45:13 +0000 |
| commit | 06e4420b666bae299c6378a9bb9775239328c4c5 (patch) | |
| tree | d469882aa4e7c6ea78b5eaec0272433e4b5d18ba | |
| parent | 415c14ce4ab2537f56ffc2fcc0fe990f6521e279 (diff) | |
| download | drakx-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
| -rw-r--r-- | perl-install/install_any.pm | 4 |
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; } |