[hadd] avoid large RAM in hadd with multiple subdirs

Fixes #13531
root-project · Mar 28, 2024 · d8330ab · d8330ab
1 parent 7a4b12f
commit d8330ab
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/io/io/src/TFileMerger.cxx b/io/io/src/TFileMerger.cxx
@@ -580,6 +580,8 @@ Bool_t TFileMerger::MergeOne(TDirectory *target, TList *sourcelist, Int_t type,
       // If this folder is a onlyListed object, merge everything inside.
       if (onlyListed) type &= ~kOnlyListed;
       status = MergeRecursive(newdir, sourcelist, type);
+      // Delete newdir directory after having written it (merged)
+      if (!(type&kIncremental)) delete newdir;
       if (onlyListed) type |= kOnlyListed;
       if (!status) return kFALSE;
    } else if (!cl->IsTObject() && cl->GetMerge()) {