summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 2ad6013c0..c472aa152 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -452,6 +452,7 @@ sub setPackages {
$supplmedium->{prefix} = $url; #- for install_urpmi
$supplmedium->{selected} = 1;
$supplmedium->{method} = $suppl_method;
+ $supplmedium->{with_hdlist} = 'media_info/hdlist.cz'; #- for install_urpmi
} else {
log::l("no suppl hdlist");
}
@@ -775,11 +776,13 @@ sub install_urpmi {
$qname =~ s/(\s)/\\$1/g; $qdir =~ s/(\s)/\\$1/g;
#- compute correctly reference to media/media_info
- #- FIXME
my $with;
if ($_->{update}) {
#- an update medium always use "../base/hdlist.cz";
+ #- FIXME
$with = "../base/hdlist.cz";
+ } elsif ($_->{with_hdlist}) {
+ $with = $_->{with_hdlist};
} else {
$with = $_->{rpmsdir};
$with =~ s|/[^/]*%{ARCH}.*||;