From 0e00d8fa29ab405b0339095fb3df3bf526ffb106 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 10 Aug 2004 05:09:27 +0000 Subject: install_urpmi(): set up the right with_hdlist for urpmi.cfg --- perl-install/install_any.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') 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}.*||; -- cgit v1.2.1