summaryrefslogtreecommitdiffstats
path: root/perl-install/timezone.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-25 15:50:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-25 15:50:57 +0000
commit509059250b46a223051f0d7daa64461596d197d8 (patch)
tree6cb0136ac649d1a4628a991191376520fb3a562e /perl-install/timezone.pm
parent830c414dd3c6eb3e3371e7306412d181b6cf2408 (diff)
downloaddrakx-509059250b46a223051f0d7daa64461596d197d8.tar
drakx-509059250b46a223051f0d7daa64461596d197d8.tar.gz
drakx-509059250b46a223051f0d7daa64461596d197d8.tar.bz2
drakx-509059250b46a223051f0d7daa64461596d197d8.tar.xz
drakx-509059250b46a223051f0d7daa64461596d197d8.zip
Help "perl -cw" not reporting any warning
- for mac free partition, use $freepart instead of $freepart_device, $freepart_size ... - replace $timezone::ntp_servers by a function
Diffstat (limited to 'perl-install/timezone.pm')
-rw-r--r--perl-install/timezone.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index bf78d4ff1..fdcdf1aa9 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -2,7 +2,7 @@ package timezone; # $Id$
use diagnostics;
use strict;
-use vars qw($ntp_servers);
+use vars;
use common;
use log;
@@ -157,7 +157,7 @@ sub sexProb($) {
$nb ? $prob / $nb : 0.5;
}
-$ntp_servers =
+sub ntp_servers {
q(Australia (ntp.adelaide.edu.au)
Australia (ntp.saard.net)
Australia (time.esec.com.au)
@@ -194,5 +194,6 @@ United states IN (gilbreth.ecn.purdue.edu)
United states IN (harbor.ecn.purdue.edu)
United states IN (molecule.ecn.purdue.edu)
);
+}
1;