summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStephen Hemminger <shemminger@vyatta.com>2011-11-22 11:24:54 -0800
committerStephen Hemminger <shemminger@vyatta.com>2011-11-22 11:24:54 -0800
commitdcff7e2c90f21cc7eb7e08ca054c8779dc0b22fd (patch)
tree220715c530a7e411ea00662b73b0b66b76876288
parent5ae60e9ecc79699967d1c0216229639a9d405b79 (diff)
downloadvyatta-cfg-system-dcff7e2c90f21cc7eb7e08ca054c8779dc0b22fd.tar.gz
vyatta-cfg-system-dcff7e2c90f21cc7eb7e08ca054c8779dc0b22fd.zip
Fix perl deprecated warning with 5.14
Code of the form: for $i qw(a b c) causes the warning: Use of qw(...) as parentheses is deprecated
-rwxr-xr-xscripts/system/vyatta_update_ntp.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/system/vyatta_update_ntp.pl b/scripts/system/vyatta_update_ntp.pl
index 3cb19804..4619b3bc 100755
--- a/scripts/system/vyatta_update_ntp.pl
+++ b/scripts/system/vyatta_update_ntp.pl
@@ -32,7 +32,7 @@ $cfg->setLevel("system ntp");
foreach my $server ($cfg->listNodes("server")) {
print "server $server iburst";
- for my $property qw(dynamic noselect preempt prefer) {
+ for my $property (qw(dynamic noselect preempt prefer)) {
print " $property" if ($cfg->exists("$server $property"));
}
print "\n";