From dcff7e2c90f21cc7eb7e08ca054c8779dc0b22fd Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <shemminger@vyatta.com>
Date: Tue, 22 Nov 2011 11:24:54 -0800
Subject: 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
---
 scripts/system/vyatta_update_ntp.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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";
-- 
cgit v1.2.3