summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 33800b4b3..0b23d8a99 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -515,8 +515,13 @@ sub selectSupplMedia {
log::l("psUsingHdlists failed: $@");
} else {
#- copy latest compssUsers.pl and rpmsrate somewhere locally
- getAndSaveFile("$url/media/media_info/compssUsers.pl", "/tmp/compssUsers.pl");
- getAndSaveFile("$url/media/media_info/rpmsrate", "/tmp/rpmsrate");
+ if ($suppl_method eq 'ftp') {
+ getAndSaveFile("media/media_info/compssUsers.pl", "/tmp/compssUsers.pl");
+ getAndSaveFile("media/media_info/rpmsrate", "/tmp/rpmsrate");
+ } else {
+ getAndSaveFile("$url/media/media_info/compssUsers.pl", "/tmp/compssUsers.pl");
+ getAndSaveFile("$url/media/media_info/rpmsrate", "/tmp/rpmsrate");
+ }
useMedium($prev_asked_medium); #- back to main medium
return $suppl_method;
}