diff options
| author | Gwenolé Beauchesne <gbeauchesne@mandriva.org> | 2006-02-08 13:24:47 +0000 |
|---|---|---|
| committer | Gwenolé Beauchesne <gbeauchesne@mandriva.org> | 2006-02-08 13:24:47 +0000 |
| commit | 147a6fb2f0bdd55badd1e260fc731d908301f61a (patch) | |
| tree | a02d520cb3453c8fe3d02c95102fa3e002b856fb | |
| parent | a24d827b9dbc8390f710771bd948342cda147489 (diff) | |
| download | drakx-backup-do-not-use-147a6fb2f0bdd55badd1e260fc731d908301f61a.tar drakx-backup-do-not-use-147a6fb2f0bdd55badd1e260fc731d908301f61a.tar.gz drakx-backup-do-not-use-147a6fb2f0bdd55badd1e260fc731d908301f61a.tar.bz2 drakx-backup-do-not-use-147a6fb2f0bdd55badd1e260fc731d908301f61a.tar.xz drakx-backup-do-not-use-147a6fb2f0bdd55badd1e260fc731d908301f61a.zip | |
Fix CD0 support (warly)
| -rw-r--r-- | perl-install/pkgs.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 59f82cdcc..ee00303b2 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -986,7 +986,7 @@ sub installTransactionClosure { my $pkg = $packages->{depslist}[$l[0]]; #- force changeCD callback to be called from main process. - install_any::getFile($pkg->filename, $medium->{descr}, $suppl_CD ? supplCDMountPoint() : undef); + install_any::getFile($pkg->filename, $medium->{method}, $suppl_CD ? supplCDMountPoint() : undef); #- close opened handle above. install_any::getFile('XXX'); } @@ -1144,9 +1144,9 @@ sub install($$$;$$) { my $f = $pkg && $pkg->filename; print $LOG "$f\n"; if (isSupplCDMedium($medium)) { - $fd = install_any::getFile($f, $medium->{descr}, supplCDMountPoint()); + $fd = install_any::getFile($f, $medium->{method}, supplCDMountPoint()); } else { - $fd = install_any::getFile($f, $medium->{descr}, $medium->{prefix}); + $fd = install_any::getFile($f, $medium->{method}, $medium->{prefix}); } $fd ? fileno $fd : -1; }, callback_close => sub { |