From 7f02efda2f339ef66b7611371cd3a1783fd04a5c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 8 Feb 2005 09:52:31 +0000
Subject: workaround perl limitation

---
 perl-install/fs/format.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/fs')

diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index af6ee7a48..1b7b977cd 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -120,6 +120,7 @@ sub wait_message {
     my ($in) = @_;
 
     my ($w, $progress, $last_msg, $displayed);
+    my $on_expose = sub { $displayed = 1; 0 }; #- declared here to workaround perl limitation
     $w, sub {
 	my ($msg, $current, $total) = @_;
 	if ($msg) {
@@ -130,7 +131,7 @@ sub wait_message {
 		if ($progress) {
 		    #- don't show by default, only if we are given progress information
 		    $progress->hide;
-		    $progress->signal_connect(expose_event => sub { $displayed = 1; 0 });
+		    $progress->signal_connect(expose_event => $on_expose);
 		}
 	    }
 	    $w->set($msg);
-- 
cgit v1.2.1