From c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 31 Mar 2000 21:54:17 +0000
Subject: *** empty log message ***

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

(limited to 'perl-install/install_any.pm')

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($) {
-- 
cgit v1.2.1