From 5c3f880e202d0b2d4c3b03236a38c35192653f91 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 6 Jan 2004 16:27:40 +0000
Subject: use $::prefix

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

(limited to 'perl-install/standalone/drakclock')

diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index 1b52328d4..35620e4a8 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -39,10 +39,10 @@ $button_time->signal_connect(clicked => sub {
 				   $in->{timezone} = {};
 				   add2hash($in->{timezone}, timezone::read());
 				   my $timezone = $in->{timezone}{timezone};
-				   $in->{timezone}{timezone} = $in->ask_from_treelist(N("Timezone - DrakClock"), N("Which is your timezone?"), '/', [ timezone::getTimeZones('') ], $timezone);
+				   $in->{timezone}{timezone} = $in->ask_from_treelist(N("Timezone - DrakClock"), N("Which is your timezone?"), '/', [ timezone::getTimeZones() ], $timezone);
 				   if (defined($in->{timezone}{timezone})) {
 					   $in->{timezone}{UTC} = $in->ask_yesorno(N("GMT - DrakClock"), N("Is your hardware clock set to GMT?"), $in->{timezone}{UTC});
-					   timezone::write('', $in->{timezone});
+					   timezone::write($in->{timezone});
 				   } else {
 					   $in->{timezone}{timezone} = $timezone;
                         }
@@ -111,7 +111,7 @@ $my_win->{window}->add(gtkpack_(Gtk2::VBox->new(0,0),
 									   if ($check_ntp->get_active) {
 									       my $choosed_serv = $combo_ntpserver->entry->get_text;
 									       $choosed_serv =~ s/(\S+)\s*(.*)$/$1/;
-									       timezone::ntp_server('', $1);
+									       timezone::ntp_server($1);
 									       system("/sbin/chkconfig --level 35 ntpd on");
 									       system("service ntpd restart");
 									   } else {
@@ -135,7 +135,7 @@ $my_win->{window}->add(gtkpack_(Gtk2::VBox->new(0,0),
 my $servers = get_server();
 $combo_ntpserver->set_popdown_strings(@$servers);
 if (-e $ntpfile && -e $ntpdlock) {
-    $ntp = timezone::ntp_server('');
+    $ntp = timezone::ntp_server();
     $ntp and ntp_widget_state(1);
     foreach my $s (@$servers) {
 	$s =~ /\Q$ntp/ and $fullntp = $s;
-- 
cgit v1.2.1