summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm13
1 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index a9c991c37..e5905940a 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -454,11 +454,14 @@ sub psUsingHdlist {
$m->{hdlist_size} = -s $newf; #- keep track of size for post-check.
symlinkf $newf, "/tmp/$hdlist";
- #- copy existing synthesis file too.
- my $newsf = "$prefix/var/lib/urpmi/synthesis.hdlist.$fakemedium.cz" . ($hdlist =~ /\.cz2/ && "2");
- install_any::getAndSaveFile("Mandrake/base/synthesis.$hdlist", $newsf);
- $m->{synthesis_hdlist_size} = -s $newsf; #- keep track of size for post-check.
- -s $newsf > 0 or unlink $newsf;
+ #- if $fhdlist is defined, this is preferable not to try to find the associated synthesis.
+ unless ($fhdlist) {
+ #- copy existing synthesis file too.
+ my $newsf = "$prefix/var/lib/urpmi/synthesis.hdlist.$fakemedium.cz" . ($hdlist =~ /\.cz2/ && "2");
+ install_any::getAndSaveFile("Mandrake/base/synthesis.$hdlist", $newsf);
+ $m->{synthesis_hdlist_size} = -s $newsf; #- keep track of size for post-check.
+ -s $newsf > 0 or unlink $newsf;
+ }
#- avoid using more than one medium if Cd is not ejectable.
#- but keep all medium here so that urpmi has the whole set.