diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-11-08 18:30:35 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-11-08 18:30:35 +0000 |
| commit | 5c480c66b5efc017849b7c8aec088e87b288d911 (patch) | |
| tree | a4591b1baa4756e880523361ad1bf13d883c2091 | |
| parent | dffd37bf0405bb0a109465210fa40ddbaa5cf92c (diff) | |
| download | drakx-5c480c66b5efc017849b7c8aec088e87b288d911.tar drakx-5c480c66b5efc017849b7c8aec088e87b288d911.tar.gz drakx-5c480c66b5efc017849b7c8aec088e87b288d911.tar.bz2 drakx-5c480c66b5efc017849b7c8aec088e87b288d911.tar.xz drakx-5c480c66b5efc017849b7c8aec088e87b288d911.zip | |
fix wait_message during module loading disappearing before being useful (old bug introduced by dams :)
| -rw-r--r-- | perl-install/any.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 2333cbd44..0a4dab084 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -582,7 +582,10 @@ sub miscellaneousNetwork { sub setup_thiskind { my ($in, $type, $auto, $at_least_one) = @_; - my @l = setup_thiskind_backend ($type, $auto, $at_least_one, sub { my $w = wait_load_module($in, $type, @_); } ); + my @l = do { + my $w; + setup_thiskind_backend ($type, $auto, $at_least_one, sub { $w = wait_load_module($in, $type, @_); } ); + }; if (!$::noauto) { if (my @err = grep { $_ } map { $_->{error} } @l) { |