From: Christian Walde <walde.christian@googlemail.com>
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?p=gitmo%2FMoo.git;a=commitdiff_plain;h=5cadba52437b1d6f405a0e74931ce51d4a993e65

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;
 }