From e61c4d55d27253c200bd30f1ac6369f96d73756d Mon Sep 17 00:00:00 2001
From: Mystery Man 580 <uid580@mandriva.org>
Date: Wed, 4 Dec 2002 10:38:20 +0000
Subject: reverse

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index ea06998ed..00b44ab1c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -842,11 +842,11 @@ sub _create_window($$) {
 
     if ($::o->{mouse}{unsafe}) {
 	$w->add_events('pointer-motion-mask');
-	my $signal = $w->signal_connect(motion_notify_event => sub {
-	    my ($sig) = @_;
+	my $signal;  #- don't make this line part of next one, signal_disconnect won't be able to access $signal value
+	$signal = $w->signal_connect(motion_notify_event => sub {
 	    delete $::o->{mouse}{unsafe};
 	    log::l("unsetting unsafe mouse");
-	    $w->signal_disconnect($sig);
+	    $w->signal_disconnect($signal);
 	});
     }
     $w->signal_connect(key_press_event => sub {
-- 
cgit v1.2.1