summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGwenolé Beauchesne <gbeauchesne@mandriva.org>2006-02-08 13:24:47 +0000
committerGwenolé Beauchesne <gbeauchesne@mandriva.org>2006-02-08 13:24:47 +0000
commit147a6fb2f0bdd55badd1e260fc731d908301f61a (patch)
treea02d520cb3453c8fe3d02c95102fa3e002b856fb
parenta24d827b9dbc8390f710771bd948342cda147489 (diff)
downloaddrakx-147a6fb2f0bdd55badd1e260fc731d908301f61a.tar
drakx-147a6fb2f0bdd55badd1e260fc731d908301f61a.tar.gz
drakx-147a6fb2f0bdd55badd1e260fc731d908301f61a.tar.bz2
drakx-147a6fb2f0bdd55badd1e260fc731d908301f61a.tar.xz
drakx-147a6fb2f0bdd55badd1e260fc731d908301f61a.zip
Fix CD0 support (warly)
-rw-r--r--perl-install/pkgs.pm6
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 {