From: Christian Walde Date: Tue, 22 Jan 2013 14:12:59 +0000 (+0100) Subject: prevent call of _install_coderef in Sub::Defer from being indirect X-Git-Tag: v1.000008~14 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5cadba52437b1d6f405a0e74931ce51d4a993e65;p=gitmo%2FMoo.git prevent call of _install_coderef in Sub::Defer from being indirect --- diff --git a/lib/Sub/Defer.pm b/lib/Sub/Defer.pm index 1d7b106..9eb4873 100644 --- a/lib/Sub/Defer.pm +++ b/lib/Sub/Defer.pm @@ -42,7 +42,7 @@ sub defer_sub { }; $deferred_string = "$deferred"; $DEFERRED{$deferred} = [ $target, $maker, \$undeferred ]; - _install_coderef $target => $deferred if defined $target; + _install_coderef($target => $deferred) if defined $target; return $deferred; }