From 5f0a701fb3bb24a15af4620eb7c22e8298d83d8c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 5 Feb 2003 14:15:06 +0000
Subject: fix "we keep spinning" bug introduced by new perl-gtk that support
 returning values from closures, especially for signals handlers

---
 clock.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/clock.pl b/clock.pl
index 5472c0e5..7baa4aa6 100755
--- a/clock.pl
+++ b/clock.pl
@@ -53,7 +53,7 @@ $button_time->signal_connect(clicked => sub {
 					   timezone::write('', $in->{timezone});
 				   } else {
 					   $in->{timezone}{timezone} = $timezone;
-     }
+                        }
 			       });
 my $vbox2 = Gtk2::VBox->new(0,0);
 my $pressed;
@@ -163,6 +163,7 @@ sub spinned {
     my (undef, undef, undef, @values) = localtime(time());
     time_to_rad($adj_s->get_value, $adj_m->get_value, $adj_h->get_value, @values);
     Repaint($drawing_area);
+    0;
 }
 
 sub motion_event {
-- 
cgit v1.2.1