summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk2.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 31e54b6f6..26a7c922c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1582,12 +1582,10 @@ sub show {
# FIXME: replace clicked for IFW:
$self->{bubble}->signal_connect(clicked => sub {
$self->{bubble}->hide;
- my $info = $self->{queue}[0];
#- has to call process_next when done
$info->{clicked}->();
- }) if $self->{queue}[0]{clicked};
+ }) if $info->{clicked};
$self->{bubble}->signal_connect(closed => sub {
- my $info = $self->{queue}[0];
$info->{timeout}->() if $info->{timeout};
$self->process_next;
});