diff options
-rw-r--r-- | perl-install/install_any.pm | 1 |
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($) { |