From 47a34688d44f0d7639c912dfefca91c3f67adfa6 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 2 Sep 2002 14:28:57 +0000
Subject: fixed to call to getFile by giving medium description, necessary for
 updates.

---
 perl-install/pkgs.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index d80d3c42f..73d0be5af 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1021,10 +1021,10 @@ sub install($$$;$$) {
 		    my @probs = $trans->run($packages, force => 1, nosize => 1, callback_open => sub {
 						my ($data, $type, $id) = @_;
 						my $pkg = defined $id && $data->{depslist}[$id];
+						my $medium = packageMedium($packages, $pkg);
 						my $f = $pkg && $pkg->filename;
 						print LOG "$f\n";
-						#my $fd = install_any::getFile($f, $media->{$p->[$MEDIUM]}{descr});
-						my $fd = install_any::getFile($f);
+						my $fd = install_any::getFile($f, $medium->{descr});
 						$fd ? fileno $fd : -1;
 					    }, callback_close => sub {
 						my ($data, $type, $id) = @_;
-- 
cgit v1.2.1