diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 9 |
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; } |