From 659b3999946c5b79ff5053536846f310bcbcc8e3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 27 Mar 2017 10:30:31 +0200
Subject: perl_checker cleanups

---
 perl-install/standalone/drakclock | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index f0050e594..3f4fe2e84 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -260,7 +260,7 @@ sub update_time() {
 }
 
 sub cal_changed() {
-    if (!$its_reset and $timer) {
+    if (!$its_reset && $timer) {
 	Glib::Source->remove($timer);
 	undef $timer;
     }
@@ -359,7 +359,7 @@ sub Repaint {
     1;
 }
 
-sub DrawSec {
+sub DrawSec() {
     my $dRadians = $dRadians_sec;
     $cairo->set_source_rgb(0.9, 0, 0);
     $cairo->move_to($midx, $midy);
@@ -367,7 +367,7 @@ sub DrawSec {
     $cairo->stroke;
 }
 
-sub DrawMin {
+sub DrawMin() {
     my $dRadians = $dRadians_min;
     $cairo->set_source_rgb(0.2, 0.2, 0.2);
     $cairo->move_to($midx - 3/100 * $radius * sin($dRadians),       $midy + 3/100 * $radius * cos($dRadians));
@@ -379,7 +379,7 @@ sub DrawMin {
     $cairo->fill;
 }
 
-sub DrawHour {
+sub DrawHour() {
     my $dRadians = $dRadians_hour + $dRadians_min / 12;
     $cairo->set_source_rgb(0.2, 0.2, 0.2);
     $cairo->move_to($midx - 4/100 * $radius * sin($dRadians),       $midy + 4/100 * $radius * cos($dRadians));
@@ -391,7 +391,7 @@ sub DrawHour {
     $cairo->fill;
 }
 
-sub DrawTicks {
+sub DrawTicks() {
     $cairo->set_source_rgb(1, 1, 1);
     $cairo->new_sub_path;
     $cairo->arc($midx, $midy, $radius, 0, 2 * $PI);
@@ -409,7 +409,7 @@ sub DrawTicks {
     $cairo->stroke;
 }
 
-sub DrawPoints {
+sub DrawPoints() {
     $cairo->set_source_rgb(0, 0, 0);
     foreach my $nMin (1..60) {
         my $dRadians = $nMin * $PI / 30;
-- 
cgit v1.2.1