fix for bug 3396712: table.pm perl syntax warning
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10343 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
419bf4232a
commit
cd98a43e1a
@ -3806,7 +3806,7 @@ sub writeAllEntries
|
||||
$rc=output_table($self->{tabname},$fh,$self,$data);
|
||||
}
|
||||
$query->finish();
|
||||
close $fh;
|
||||
CORE::close $fh;
|
||||
return $rc;
|
||||
}
|
||||
|
||||
@ -3892,7 +3892,7 @@ sub writeAllAttribsWhere
|
||||
$rc=output_table($self->{tabname},$fh,$self,$data);
|
||||
}
|
||||
$query->finish();
|
||||
close $fh;
|
||||
CORE::close $fh;
|
||||
return $rc ;
|
||||
}
|
||||
#--------------------------------------------------------------------------
|
||||
|
Loading…
x
Reference in New Issue
Block a user