fixed some bugs

[mothur.git] / clustercommand.cpp

diff --git a/clustercommand.cpp b/clustercommand.cpp
index 4db95b45d00e3857513606383f05810f31a30ecd..eeba407eefc7bfb39a6bc60428a796f7bfb47068 100644 (file)
--- a/clustercommand.cpp
+++ b/clustercommand.cpp
@@ -120,8 +120,10 @@ void ClusterCommand::help(){
 //**********************************************************************************************************************
 
 ClusterCommand::~ClusterCommand(){
-       delete cluster;
-       delete rabund;
+       if (abort == false) {
+               delete cluster;
+               delete rabund;
+       }
 }
 
 //**********************************************************************************************************************
@@ -177,6 +179,10 @@ int ClusterCommand::execute(){
                globaldata->setNameFile("");
                globaldata->setFormat("list");
                
+               sabundFile.close();
+               rabundFile.close();
+               listFile.close();
+               
                return 0;
        }
        catch(exception& e) {