From 5474d28875dcb4595e968a402d6d46b407ab006b Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 18 Jul 2008 22:41:43 +0000
Subject: [PATCH] -Fix strict compliance issue in xcatd, add warnings check to
 xcatd

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1908 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/sbin/xcatd | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/sbin/xcatd b/xCAT-server/sbin/xcatd
index c9c1d7182..2da201c18 100755
--- a/xCAT-server/sbin/xcatd
+++ b/xCAT-server/sbin/xcatd
@@ -1,5 +1,7 @@
 #!/usr/bin/env perl
 # IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
+use strict;
+use warnings;
 use Carp;
 BEGIN
 {
@@ -11,7 +13,7 @@ use xCAT::Utils;
 use File::Path;
 use Time::HiRes qw(sleep);
 use Thread qw(yield);
-use xCAT::Client submit_request;
+use xCAT::Client qw(submit_request);
 my $clientselect = new IO::Select;
 my $sslclients = 0; #THROTTLE
 my $maxsslclients = 16; #default
@@ -63,7 +65,6 @@ Getopt::Long::Configure("pass_through");
 
 use Storable qw(dclone);
 use POSIX qw(WNOHANG setsid);
-use strict;
 my $pidfile;
 my $foreground;
 GetOptions(