fix to allow strict
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2872 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
5e7008e55d
commit
fec6149ffa
@ -85,14 +85,14 @@ sub runcmd
|
||||
my $rc=0;
|
||||
|
||||
$cmd .= ' 2>&1' ;
|
||||
$::outref = [];
|
||||
$::outref = `$cmd`;
|
||||
my $outref = [];
|
||||
@$outref = `$cmd`;
|
||||
if ($?)
|
||||
{
|
||||
$rc = $? >> 8;
|
||||
if ($rc > 0)
|
||||
{
|
||||
my $msg="$cmd returned rc=$rc @$::outref\n";
|
||||
my $msg="$cmd returned rc=$rc @$outref\n";
|
||||
`logger -t xcat $msg`;
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user