summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-26 10:07:45 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-26 10:07:45 +0000
commit8dd4e92d8dcd424fd5d9ab715c84e29e269984c5 (patch)
tree92d6aff84e1e14a080565abc49f4efbeef1920c8 /perl-install
parentfe1f0cf647f2e9416d3ab4b5ca4395adeb98d44c (diff)
downloaddrakx-8dd4e92d8dcd424fd5d9ab715c84e29e269984c5.tar
drakx-8dd4e92d8dcd424fd5d9ab715c84e29e269984c5.tar.gz
drakx-8dd4e92d8dcd424fd5d9ab715c84e29e269984c5.tar.bz2
drakx-8dd4e92d8dcd424fd5d9ab715c84e29e269984c5.tar.xz
drakx-8dd4e92d8dcd424fd5d9ab715c84e29e269984c5.zip
(Repaint) help perl_checker in checking time_to_rad() arguments
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakclock3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index 4e014f329..8ed295472 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -292,7 +292,8 @@ sub time_to_rad {
sub Repaint {
my ($drawing_area, $o_update_time) = @_;
- time_to_rad(localtime(time())) if $o_update_time;
+ my ($sec, $min, $hour) = localtime(time());
+ time_to_rad($sec, $min, $hour) if $o_update_time;
my ($width, $height) = ($drawing_area->allocation->width, $drawing_area->allocation->height);
my $dRadians_hour_real = $dRadians_hour + $dRadians_min / 12;
my $dRadians_min_real = POSIX::floor($dRadians_min / $PI * 30) * $PI / 30;