summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakclock
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2017-03-27 10:30:31 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2017-03-27 10:49:25 +0200
commit659b3999946c5b79ff5053536846f310bcbcc8e3 (patch)
tree062c0f90564bd6863dc5532d2da762d3b8202109 /perl-install/standalone/drakclock
parented57879762a172eeb066eda42beba8abba6fa2f2 (diff)
downloaddrakx-659b3999946c5b79ff5053536846f310bcbcc8e3.tar
drakx-659b3999946c5b79ff5053536846f310bcbcc8e3.tar.gz
drakx-659b3999946c5b79ff5053536846f310bcbcc8e3.tar.bz2
drakx-659b3999946c5b79ff5053536846f310bcbcc8e3.tar.xz
drakx-659b3999946c5b79ff5053536846f310bcbcc8e3.zip
perl_checker cleanups
Diffstat (limited to 'perl-install/standalone/drakclock')
-rwxr-xr-xperl-install/standalone/drakclock12
1 files 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;