diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-11-11 21:17:18 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-11-11 21:17:18 +0000 |
commit | db80cb74feca3ad9f372047624ccfcdfa8122ee4 (patch) | |
tree | 54738785f10eba0c1c3d340f21870da423b4a172 | |
parent | 747a1feb2d49d2dba85f997fa2f4542a17800331 (diff) | |
download | reaction-db80cb74feca3ad9f372047624ccfcdfa8122ee4.tar.gz reaction-db80cb74feca3ad9f372047624ccfcdfa8122ee4.zip |
dont leak weaken
-rw-r--r-- | lib/Reaction/UI/Controller.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Reaction/UI/Controller.pm b/lib/Reaction/UI/Controller.pm index fc2f597..eac550d 100644 --- a/lib/Reaction/UI/Controller.pm +++ b/lib/Reaction/UI/Controller.pm @@ -8,6 +8,7 @@ use base qw( use Reaction::Class; use Scalar::Util 'weaken'; +use namespace::clean -except => [ qw(meta) ]; sub push_viewport { my $self = shift; @@ -77,7 +78,7 @@ sub redirect_to { sub make_context_closure { my($self, $closure) = @_; my $ctx = $self->context; - weaken $ctx; + weaken($ctx); return sub { $closure->($ctx, @_) }; } |