From: Dave Rolsky <autarch@urth.org>
Date: Mon, 6 Apr 2009 17:08:27 +0000 (-0500)
Subject: Using find_method_by_name, not find_next_method_by_name. This makes
X-Git-Tag: 0.73_02~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d493b71a848c8df48c4b8823c357d95b3e3fdd83;p=gitmo%2FMoose.git

Using find_method_by_name, not find_next_method_by_name. This makes
sure we inline properly for classes that have their own DEMOLISH
---

diff --git a/lib/Moose/Meta/Method/Destructor.pm b/lib/Moose/Meta/Method/Destructor.pm
index 93d7f83..9d9e1a3 100644
--- a/lib/Moose/Meta/Method/Destructor.pm
+++ b/lib/Moose/Meta/Method/Destructor.pm
@@ -57,7 +57,7 @@ sub is_needed {
         || $self->throw_error(
         "The is_needed method expected a metaclass object as its arugment");
 
-    return $metaclass->find_next_method_by_name('DEMOLISH');
+    return $metaclass->find_method_by_name('DEMOLISH');
 }
 
 sub initialize_body {