From 098b73416d07ee92f3ca3949c9ad0d0e1cec5b7a Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 20 Apr 2011 11:23:15 +0000
Subject: [PATCH] add strict to postscript defect 3078161

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9358 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT/postscripts/servicenode | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/xCAT/postscripts/servicenode b/xCAT/postscripts/servicenode
index 27a9df847..9280fa5f5 100755
--- a/xCAT/postscripts/servicenode
+++ b/xCAT/postscripts/servicenode
@@ -32,6 +32,7 @@ if ($^O =~ /^aix/i) {
 }
 
 use lib "$::XCATROOT/lib/perl";
+use strict;
 
 # MAIN
 use IO::Socket;
@@ -516,7 +517,7 @@ sub copycerts
     `touch /etc/xCATSN`;
     # get roots home directory
     my @user= getpwuid($>);
-    $homedir=$user[7];
+    my $homedir=$user[7];
     if (-d "/xcatpost/_xcat")
     {
         if (!(-d "$homedir/.xcat"))