From 874f77afeda3b91bc28bfbb7691c46d505cab2b6 Mon Sep 17 00:00:00 2001
From: mellor <mellor@us.ibm.com>
Date: Wed, 4 Feb 2015 08:00:03 -0500
Subject: [PATCH] defect 4082 - change previous fix to disable warnings when
 calling setlogsock to work with older versions of perl too

---
 xCAT-server/sbin/xcatd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/sbin/xcatd b/xCAT-server/sbin/xcatd
index a9dd0f2cc..87ac2c56b 100755
--- a/xCAT-server/sbin/xcatd
+++ b/xCAT-server/sbin/xcatd
@@ -113,9 +113,9 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
 openlog("xcatd",,"local4");
 # turn off warnings for call to setlogsock.  puts out warning message if
 #   syslog tcp port not defined in /etc/services.  this can safely be ignored.
-no warnings qw(Sys::Syslog);
+no warnings;
 setlogsock(["tcp","unix","stream"]);
-use warnings qw(Sys::Syslog);
+use warnings;
 
 use xCAT::NotifHandler;
 use xCAT_monitoring::monitorctrl;