summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-08 09:52:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-08 09:52:31 +0000
commit7f02efda2f339ef66b7611371cd3a1783fd04a5c (patch)
treedb817b1f5ae07fdf7602d739ad0ae179830e1d5b /perl-install
parent98f47ffc04b510e6263f1c294c55a77ab7e55fae (diff)
downloaddrakx-backup-do-not-use-7f02efda2f339ef66b7611371cd3a1783fd04a5c.tar
drakx-backup-do-not-use-7f02efda2f339ef66b7611371cd3a1783fd04a5c.tar.gz
drakx-backup-do-not-use-7f02efda2f339ef66b7611371cd3a1783fd04a5c.tar.bz2
drakx-backup-do-not-use-7f02efda2f339ef66b7611371cd3a1783fd04a5c.tar.xz
drakx-backup-do-not-use-7f02efda2f339ef66b7611371cd3a1783fd04a5c.zip
workaround perl limitation
Diffstat (limited to 'perl-install')
-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);