From 5c86071f90cb704e388bb83e33a948ce33a41f2e Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 24 Sep 2004 01:59:14 +0000 Subject: Fix 10.0-style paths --- perl-install/install_any.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index ad69071a0..728eed44e 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -339,9 +339,9 @@ sub selectSupplMedia { eval { pkgs::psUsingHdlists($o, $suppl_method, "/mnt/cdrom", $o->{packages}, $medium_name) }; log::l("psUsingHdlists failed: $@") if $@; - #- copy latest compssUsers.pl and rpmsrate somewhere locally - getAndSaveFile("/mnt/cdrom/media/media_info/compssUsers.pl", "/tmp/compssUsers.pl"); - getAndSaveFile("/mnt/cdrom/media/media_info/rpmsrate", "/tmp/rpmsrate"); + #- copy latest compssUsers and rpmsrate somewhere locally + getAndSaveFile("/mnt/cdrom/Mandrake/base/compssUsers", "/tmp/compssUsers"); + getAndSaveFile("/mnt/cdrom/Mandrake/base/rpmsrate", "/tmp/rpmsrate"); #- umount supplementary CD. Will re-ask for it later getFile("XXX"); #- close still opened filehandles -- cgit v1.2.1