From 5c480c66b5efc017849b7c8aec088e87b288d911 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Nov 2001 18:30:35 +0000
Subject: fix wait_message during module loading disappearing before being
 useful (old bug introduced by dams :)

---
 perl-install/any.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

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) {
-- 
cgit v1.2.1