fixes for strict

1 files changed, 4 insertions, 2 deletions

diff --git a/clock.pl b/clock.pl
index 338462c8..b9db6d78 100755
--- a/clock.pl
+++ b/clock.pl
@@ -35,6 +35,7 @@ my $dRadians_hour;
 my $dRadians_min;
 my $dRadians_sec;
 my $Radian;
+my $type;
 my $timer;
 my ($midx, $midy);
 my $first=1;
@@ -72,6 +73,7 @@ $button_time->signal_connect ( clicked => sub {
      }
 			       });
 my $vbox2 = new Gtk::VBox(0,0);
+my $pressed;
 $hbox->pack_start($vbox2, 1, 1, 0);
 my $drawing_area = new Gtk::DrawingArea;
 $drawing_area->size(300,300);
@@ -159,7 +161,7 @@ $is24 = $h_old>12;
 $old_year += 1900;
 $calendar->select_month($old_month, $old_year);
 $calendar->select_day($old_day);
-$::isEmbedded and kill USR2, $::CCPID;
+$::isEmbedded and kill 'USR2', $::CCPID;
 $button_reset->set_sensitive(0);
 $timer=Gtk->timeout_add(120, sub { time_to_rad(localtime(time)); Repaint($drawing_area) });
 Gtk->main;
@@ -221,7 +223,7 @@ sub determine_radian {
 }
 
 sub quit_global {
-    $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0);
+    $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0);
 }
 
 sub expose_event {