prevent call of _install_coderef in Sub::Defer from being indirect
Christian Walde [Tue, 22 Jan 2013 14:12:59 +0000 (15:12 +0100)]
lib/Sub/Defer.pm

index 1d7b106..9eb4873 100644 (file)
@@ -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;
 }