summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-18 14:49:30 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-18 14:49:30 +0000
commitef7b88972b9c49fd04119efab49908b819560e6a (patch)
treed4042e1fbba3f97ab577d4d4f0e90ba4750fef86 /perl-install/standalone
parent0408c781e6affb569d3c004b98100014fff24b40 (diff)
downloaddrakx-backup-do-not-use-ef7b88972b9c49fd04119efab49908b819560e6a.tar
drakx-backup-do-not-use-ef7b88972b9c49fd04119efab49908b819560e6a.tar.gz
drakx-backup-do-not-use-ef7b88972b9c49fd04119efab49908b819560e6a.tar.bz2
drakx-backup-do-not-use-ef7b88972b9c49fd04119efab49908b819560e6a.tar.xz
drakx-backup-do-not-use-ef7b88972b9c49fd04119efab49908b819560e6a.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakclock6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index c40c80a3d..90c1af50b 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -109,7 +109,7 @@ $my_win->{window}->add(gtkpack_(Gtk2::VBox->new(0,0),
gtksignal_connect(Gtk2::Button->new(N("Ok")),
clicked => sub {
if ($check_ntp->get_active) {
- my $choosed_serv = $combo_ntpserver->entry->get_text();
+ my $choosed_serv = $combo_ntpserver->entry->get_text;
$choosed_serv =~ s/(\S+)\s*(.*)$/$1/;
timezone::ntp_server('', $1);
system("/sbin/chkconfig --level 35 ntpd on");
@@ -208,7 +208,7 @@ sub install_ntp() {
}))));
$w->main;
}
-sub get_server {
+sub get_server() {
my ($servs, @sv);
$servs = timezone::ntp_servers();
foreach my $l (keys %$servs) {
@@ -268,7 +268,7 @@ sub determine_radian {
my $res;
my $r;
foreach (\$dRadians_hour, \$dRadians_min, \$dRadians_sec) {
- my $d = sqrt( ($x - ($midx + 7/10 * $radius * sin($$_)))**2 + ($y - ($midy - 7/10 * $radius * cos($$_)))**2);
+ my $d = sqrt(($x - ($midx + 7/10 * $radius * sin($$_)))**2 + ($y - ($midy - 7/10 * $radius * cos($$_)))**2);
$res or $res = $d, $r = $_;
$d < $res and $res = $d, $r = $_;
}