summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-11-08 18:30:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-11-08 18:30:35 +0000
commit5c480c66b5efc017849b7c8aec088e87b288d911 (patch)
treea4591b1baa4756e880523361ad1bf13d883c2091
parentdffd37bf0405bb0a109465210fa40ddbaa5cf92c (diff)
downloaddrakx-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.pm5
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) {