From 9d46c4e5a4fbebcd617ba317ab607bddce03cc76 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Feb 2004 18:12:30 +0000
Subject: don't have a wait_message above another empty wait_message when
 probing hardware

---
 perl-install/modules/interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm
index e898edfea..8a66aa800 100644
--- a/perl-install/modules/interactive.pm
+++ b/perl-install/modules/interactive.pm
@@ -34,7 +34,7 @@ sub load_category {
     my @l;
     {
 	my $w;
-	my $wait_message = sub { $w = wait_load_module($in, $category, @_) };
+	my $wait_message = sub { undef $w; $w = wait_load_module($in, $category, @_) };
 	@l = modules::load_category($category, $wait_message);
 	undef $w; #- help perl_checker
     }
-- 
cgit v1.2.1