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:
parent
ebe03d3c51
commit
098b73416d
@ -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"))
|
||||
|
Loading…
Reference in New Issue
Block a user