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.pm13
1 files changed, 12 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e5e7eba07..630b19945 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -544,10 +544,21 @@ sub install_urpmi {
my ($qname, $qdir) = ($name, $dir);
$qname =~ s/(\s)/\\$1/g; $qdir =~ s/(\s)/\\$1/g;
+ #- compute correctly reference to Mandrake/base
+ my $with;
+ if ($_->{update}) {
+ #- an update medium always use "../base/hdlist.cz";
+ $with = "../base/hdlist.cz";
+ } else {
+ $with = $_->{rpmsdir};
+ $with =~ s|/+|/|g; $with =~ s|/$||; $with =~ s|[^/]||g; $with =~ s|/|../|g;
+ $with .= "Mandrake/base/$_->{hdlist}";
+ }
+
#- output new urpmi.cfg format here.
push @cfg, "$qname " . ($need_list ? "" : $qdir) . " {
hdlist: hdlist.$name.cz
- with_hdlist: ../base/" . ($_->{update} ? "hdlist.cz" : $_->{hdlist}) . ($need_list ? "
+ with_hdlist: $with" . ($need_list ? "
list: list.$name" : "") . ($dir =~ /removable:/ && "
removable: /dev/cdrom") . "
update" . "