From: Yuval Kogman <nothingmuch@woobling.org>
Date: Thu, 4 Sep 2008 02:00:17 +0000 (+0000)
Subject: foo
X-Git-Tag: 0.58~53
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffa3d7bf45b7786ad1057cc38cda0e04ba9ab849;p=gitmo%2FMoose.git

foo
---

diff --git a/lib/Moose/Meta/Method.pm b/lib/Moose/Meta/Method.pm
index 89135e6..a01751a 100644
--- a/lib/Moose/Meta/Method.pm
+++ b/lib/Moose/Meta/Method.pm
@@ -21,7 +21,8 @@ sub throw_error {
     unshift @_, "message" if @_ % 2 == 1;
     unshift @_, method => $self if ref $self;
     unshift @_, $inv;
-    goto $inv->can("throw_error"); # to avoid incrementing depth by 1
+    my $handler = $inv->can("throw_error");
+    goto $handler; # to avoid incrementing depth by 1
 }
 
 sub _inline_throw_error {