minor perl syntax fix in Table.pm

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10480 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc 2011-09-09 05:31:10 +00:00
parent a96774d18e
commit 231c38c9d3

View File

@ -3806,7 +3806,7 @@ sub writeAllEntries
$rc=output_table($self->{tabname},$fh,$self,$data);
}
$query->finish();
CORE::close $fh;
CORE::close($fh);
return $rc;
}
@ -3892,7 +3892,7 @@ sub writeAllAttribsWhere
$rc=output_table($self->{tabname},$fh,$self,$data);
}
$query->finish();
CORE::close $fh;
CORE::close($fh);
return $rc ;
}
#--------------------------------------------------------------------------