summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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($) {