diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 336fe4681..5c75b5e9f 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();
-    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 ;
 }
 #--------------------------------------------------------------------------