fix perl error because of conflicting close function

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.6@10746 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2011-10-11 18:42:22 +00:00
parent ba190e0d9d
commit b1c534716b
1 changed files with 2 additions and 2 deletions
@@ -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 ;
 }
 #--------------------------------------------------------------------------