From 2f68261c9b705cc3af8646826a2a17e3dec65887 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 14 Mar 2008 15:32:00 +0000
Subject: info is already defined, simplify

---
 perl-install/ugtk2.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install/ugtk2.pm')

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;
                                     });
-- 
cgit v1.2.1