From 231c38c9d3cb5933668aa23f52e24c342bd0dbdc Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 9 Sep 2011 05:31:10 +0000
Subject: [PATCH] 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
---
 perl-xCAT/xCAT/Table.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 5c75b5e9f..04362aff8 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -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 ;
 }
 #--------------------------------------------------------------------------