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
This commit is contained in:
lissav 2011-04-20 11:23:15 +00:00
parent ebe03d3c51
commit 098b73416d

View File

@ -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"))