From e2487166a9559645bba02b35a7157e16fca829c6 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 30 Aug 2001 13:57:17 +0000
Subject: if a medium is refused, get rid of it definitively until it is
 accepted again.

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 7013d4278..d7587d20c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -80,6 +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.
     $allow;
 }
 sub errorOpeningFile($) {
-- 
cgit v1.2.1