Merge pull request #690 from galacticusorg/fixEventsMemoryLeak

Avoid memory leak in events filtering
galacticusorg · Sep 6, 2024 · 9843132 · 9843132
2 parents 925e5bc + feab823
commit 9843132
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/perl/Galacticus/Build/SourceTree/Process/EventHooks.pm b/perl/Galacticus/Build/SourceTree/Process/EventHooks.pm
@@ -395,6 +395,7 @@ CODE
    {$name}EventBackups => {$name}EventBackups%next
    select type (eventHook_ => eventHookBackup%eventHook_)
    type is (eventHook{$interfaceType})
+      if (allocated({$name}Event%hooks_)) deallocate({$name}Event%hooks_)
       {$name}Event        =  eventHook_
    class default
       call Error_Report('eventHook has incorrect class'//{$location})