fix "we keep spinning" bug introduced by new perl-gtk that support

returning values from closures, especially for signals handlers

1 files changed, 2 insertions, 1 deletions

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 {