From e2487166a9559645bba02b35a7157e16fca829c6 Mon Sep 17 00:00:00 2001 From: Francois Pons 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