summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakclock7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index 4206a11be..d1dc4758f 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -266,7 +266,10 @@ sub update_time() {
}
sub cal_changed() {
- !$its_reset and $timer and Glib::Source->remove($timer);
+ if (!$its_reset and $timer) {
+ Glib::Source->remove($timer);
+ undef $timer;
+ }
$button_reset->set_sensitive(1);
}
@@ -282,6 +285,7 @@ sub changed() {
sub spinned() {
Glib::Source->remove($timer);
+ undef $timer;
$button_reset->set_sensitive(1);
time_to_rad($adjs->get_value, $adjm->get_value, $adjh->get_value);
Repaint($drawing_area);
@@ -293,6 +297,7 @@ sub motion_event {
$pressed or return;
if ($first) {
Glib::Source->remove($timer);
+ undef $timer;
$Radian = determine_radian($event->x, $event->y);
$button_reset->set_sensitive(1);
}