memory leak fixage

[scpubgit/Tak.git] / lib / Tak / ModuleLoader / Hook.pm

diff --git a/lib/Tak/ModuleLoader/Hook.pm b/lib/Tak/ModuleLoader/Hook.pm
index c1a1627..7d598d3 100644 (file)
--- a/lib/Tak/ModuleLoader/Hook.pm
+++ b/lib/Tak/ModuleLoader/Hook.pm
@@ -2,7 +2,7 @@ package Tak::ModuleLoader::Hook;
 
 use Moo;
 
-has sender => (is => 'ro', required => 1);
+has sender => (is => 'ro', required => 1, weak_ref => 1);
 
 sub Tak::ModuleLoader::Hook::INC { # unqualified INC forced into package main
   my ($self, $module) = @_;