diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-03-14 15:32:00 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-03-14 15:32:00 +0000 |
| commit | 2f68261c9b705cc3af8646826a2a17e3dec65887 (patch) | |
| tree | c48dd2f1a83ac020b30c7b2fb15ba36e7a1dd683 /perl-install/ugtk2.pm | |
| parent | b535923aff925988dc07a25e96073f5b589d7650 (diff) | |
| download | drakx-2f68261c9b705cc3af8646826a2a17e3dec65887.tar drakx-2f68261c9b705cc3af8646826a2a17e3dec65887.tar.gz drakx-2f68261c9b705cc3af8646826a2a17e3dec65887.tar.bz2 drakx-2f68261c9b705cc3af8646826a2a17e3dec65887.tar.xz drakx-2f68261c9b705cc3af8646826a2a17e3dec65887.zip | |
info is already defined, simplify
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
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; }); |