summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-03-31 21:54:17 +0000
committerFrancois Pons <fpons@mandriva.com>2000-03-31 21:54:17 +0000
commitc3ce2573ae05a6145f5cd0c71d2b74b1bc9df754 (patch)
tree9d7c0529277964690cb89f73939eea9fe5f7b172 /perl-install/install_any.pm
parentbcd0d92e8b0b72d04b45eeaaea541d672cc46ab7 (diff)
downloaddrakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar
drakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.gz
drakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.bz2
drakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.xz
drakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index da40d7b6a..30fdec6bc 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -46,7 +46,7 @@ sub useMedium($) {
#- does nothing if the function has already been called.
$_[0] and $::o->{method} eq 'cdrom' and setup_postinstall_rpms($::o->{prefix}, $::o->{packages});
- $asked_medium eq $_[0] or log::l("selecting new medium $_[0]");
+ $asked_medium eq $_[0] or log::l("selecting new medium \"$_[0]\"");
$asked_medium = $_[0];
}
sub changeMedium($$) {
@@ -58,7 +58,8 @@ sub relGetFile($) {
local $_ = $_[0];
m|^Mandrake/| and return $_;
/\.img$/ and return "images/$_";
- my $dir = m|/| ? "mdkinst" : /^(?:compss|compssList|compssUsers|depslist.*|hdlist.*)$/ ? "base/": "RPMS$asked_medium/";
+ my $dir = m|/| ? "mdkinst" : /^(?:compss|compssList|compssUsers|filelist|depslist.*|hdlist.*)$/ ?
+ "base/": "RPMS$asked_medium/";
"Mandrake/$dir$_";
}
sub errorOpeningFile($) {