diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-01-22 16:06:24 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-01-22 16:06:24 +0000 |
| commit | e92fcfaefdb757ae3d60aac81bd631cf47ade347 (patch) | |
| tree | ac1ae74b0bfc63e969609e827b5d616359eefce9 /perl-install/pkgs.pm | |
| parent | c6c85b4a9fcf16a045e7372dc39bc8d920fca107 (diff) | |
| download | drakx-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/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
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. |