summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-03-14 15:32:00 +0000
committerOlivier Blin <oblin@mandriva.com>2008-03-14 15:32:00 +0000
commit2f68261c9b705cc3af8646826a2a17e3dec65887 (patch)
treec48dd2f1a83ac020b30c7b2fb15ba36e7a1dd683
parentb535923aff925988dc07a25e96073f5b589d7650 (diff)
downloaddrakx-backup-do-not-use-2f68261c9b705cc3af8646826a2a17e3dec65887.tar
drakx-backup-do-not-use-2f68261c9b705cc3af8646826a2a17e3dec65887.tar.gz
drakx-backup-do-not-use-2f68261c9b705cc3af8646826a2a17e3dec65887.tar.bz2
drakx-backup-do-not-use-2f68261c9b705cc3af8646826a2a17e3dec65887.tar.xz
drakx-backup-do-not-use-2f68261c9b705cc3af8646826a2a17e3dec65887.zip
info is already defined, simplify
-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;
});