summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-08-30 13:57:17 +0000
committerFrancois Pons <fpons@mandriva.com>2001-08-30 13:57:17 +0000
commite2487166a9559645bba02b35a7157e16fca829c6 (patch)
treedafe91e2ffc3d37aabaf2dbf68866fa5d41e679a
parent543d0c7448504efaed4ef776f97936337849718b (diff)
downloaddrakx-e2487166a9559645bba02b35a7157e16fca829c6.tar
drakx-e2487166a9559645bba02b35a7157e16fca829c6.tar.gz
drakx-e2487166a9559645bba02b35a7157e16fca829c6.tar.bz2
drakx-e2487166a9559645bba02b35a7157e16fca829c6.tar.xz
drakx-e2487166a9559645bba02b35a7157e16fca829c6.zip
if a medium is refused, get rid of it definitively until it is accepted again.
-rw-r--r--perl-install/install_any.pm1
1 files changed, 1 insertions, 0 deletions
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($) {