diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-08-30 13:57:17 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-08-30 13:57:17 +0000 |
| commit | e2487166a9559645bba02b35a7157e16fca829c6 (patch) | |
| tree | dafe91e2ffc3d37aabaf2dbf68866fa5d41e679a /perl-install | |
| parent | 543d0c7448504efaed4ef776f97936337849718b (diff) | |
| download | drakx-backup-do-not-use-e2487166a9559645bba02b35a7157e16fca829c6.tar drakx-backup-do-not-use-e2487166a9559645bba02b35a7157e16fca829c6.tar.gz drakx-backup-do-not-use-e2487166a9559645bba02b35a7157e16fca829c6.tar.bz2 drakx-backup-do-not-use-e2487166a9559645bba02b35a7157e16fca829c6.tar.xz drakx-backup-do-not-use-e2487166a9559645bba02b35a7157e16fca829c6.zip | |
if a medium is refused, get rid of it definitively until it is accepted again.
Diffstat (limited to 'perl-install')
| -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($) { |