diff options
| -rw-r--r-- | perl-install/install_any.pm | 1 | ||||
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index b8ea543b4..f6799bcec 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -419,6 +419,7 @@ sub install_urpmi { close FILES or log::l("parsehdlist failed"), return; close LIST; + $name =~ s/(\s)/\\$1 /g; $dir =~ s/(\s)/\\$1/g; #- necessary to change protect white char, for urpmi >= 1.40 $dir .= " with ../base/$_->{hdlist}" if $method =~ /ftp|http/; "$name $dir\n"; } values %$mediums; diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index b6e7de82b..0baccea9e 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -346,7 +346,7 @@ sub psUpdateHdlistsDeps { #- copy hdlist file directly to $prefix/var/lib/urpmi, this will be used #- for getting header of package during installation or after by urpmi. - my $fakemedium = $method . $medium; + my $fakemedium = "$descr ($method$medium)"; my $newf = "$prefix/var/lib/urpmi/hdlist.$fakemedium.cz" . ($hdlist =~ /\.cz2/ && "2"); -e $newf and do { unlink $newf or die "cannot remove $newf: $!"; }; install_any::getAndSaveFile("Mandrake/base/$hdlist", $newf) or die "no $hdlist found"; @@ -387,7 +387,7 @@ sub psUsingHdlists { sub psUsingHdlist { my ($prefix, $method, $packages, $hdlist, $medium, $rpmsdir, $descr, $selected, $fhdlist) = @_; - my $fakemedium = $method . $medium; + my $fakemedium = "$descr ($method$medium)"; log::l("trying to read $hdlist for medium $medium"); #- if the medium already exist, use it. |