summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/fs/format.pm3
1 files changed, 2 insertions, 1 deletions
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);