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