From cb3afbddbc98accde27da668b88ce12790677bc6 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 21 Sep 2001 15:05:48 +0000
Subject: reworked medium management.

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index d35877bba..18bc4ead7 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -80,7 +80,7 @@ sub askChangeMedium($$) {
     do {
 	eval { $allow = changeMedium($method, $medium) };
     } while ($@); #- really it is not allowed to die in changeMedium!!! or install will cores with rpmlib!!!
-    $allow or $::o->{packages}{mediums}{$medium}{selected} = undef; #- disable selected if medium refused.
+    log::l($allow ? "accepting medium $medium" : "refusing medium $medium");
     $allow;
 }
 sub errorOpeningFile($) {
-- 
cgit v1.2.1