Bug fix in order to properly delete TFile object (H. Tydesjo)

diff --git a/ITS/AliITSOnlineSPDphys.cxx b/ITS/AliITSOnlineSPDphys.cxx
index 635211a2c3aa32c07d080f5abc277bfddfc6e8bb..11e8af7ca5f5aa8fdaff64df6c416ed25f49d128 100644 (file)
--- a/ITS/AliITSOnlineSPDphys.cxx
+++ b/ITS/AliITSOnlineSPDphys.cxx
@@ -74,7 +74,8 @@ AliITSOnlineSPDphys::~AliITSOnlineSPDphys() {
     }
     fFile->Delete("AliITSOnlineSPDphysInfo;*");
     fFile->WriteTObject(fPhysInfo, "AliITSOnlineSPDphysInfo");
-    fFile->Close();
+  }
+  if (fFile!=NULL) {
     delete fFile;
   }
 }

diff --git a/ITS/AliITSOnlineSPDscan.cxx b/ITS/AliITSOnlineSPDscan.cxx
index 02d501d0889b28500646f69880fdeec077302fca..e432eb850cbd12b354ca54af32c3c4183efec841 100644 (file)
--- a/ITS/AliITSOnlineSPDscan.cxx
+++ b/ITS/AliITSOnlineSPDscan.cxx
@@ -84,7 +84,8 @@ AliITSOnlineSPDscan::~AliITSOnlineSPDscan() {
     }
     fFile->Delete("AliITSOnlineSPDscanInfo;*");
     fFile->WriteTObject(fScanInfo, "AliITSOnlineSPDscanInfo");
-    fFile->Close();
+  }
+  if (fFile!=NULL) {
     delete fFile;
   }
 }