summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-01-22 16:06:24 +0000
committerFrancois Pons <fpons@mandriva.com>2002-01-22 16:06:24 +0000
commite92fcfaefdb757ae3d60aac81bd631cf47ade347 (patch)
treeac1ae74b0bfc63e969609e827b5d616359eefce9 /perl-install
parentc6c85b4a9fcf16a045e7372dc39bc8d920fca107 (diff)
downloaddrakx-e92fcfaefdb757ae3d60aac81bd631cf47ade347.tar
drakx-e92fcfaefdb757ae3d60aac81bd631cf47ade347.tar.gz
drakx-e92fcfaefdb757ae3d60aac81bd631cf47ade347.tar.bz2
drakx-e92fcfaefdb757ae3d60aac81bd631cf47ade347.tar.xz
drakx-e92fcfaefdb757ae3d60aac81bd631cf47ade347.zip
added support to save already existing synthesis file.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 36a439607..1fca48c33 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -436,6 +436,8 @@ sub psUsingHdlist {
-e $newf and do { unlink $newf or die "cannot remove $newf: $!"; };
install_any::getAndSaveFile($fhdlist || "Mandrake/base/$hdlist", $newf) or die "no $hdlist found";
symlinkf $newf, "/tmp/$hdlist";
+ install_any::getAndSaveFile("Mandrake/base/synthesis.$hdlist",
+ "$prefix/var/lib/urpmi/synthesis.hdlist.$fakemedium.cz" . ($hdlist =~ /\.cz2/ && "2"));
#- avoid using more than one medium if Cd is not ejectable.
#- but keep all medium here so that urpmi has the whole set.