From: Stevan Little <stevan.little@iinteractive.com>
Date: Sun, 8 Apr 2007 14:28:18 +0000 (+0000)
Subject: I think this fixed the bleadperl issue
X-Git-Tag: 0_38~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=187c832e593b051c2e094527857ff907d88cfc97;p=gitmo%2FClass-MOP.git

I think this fixed the bleadperl issue
---

diff --git a/t/003_methods.t b/t/003_methods.t
index fa64c49..9dfcb9e 100644
--- a/t/003_methods.t
+++ b/t/003_methods.t
@@ -116,7 +116,7 @@ for my $method_name (qw/FOO_CONSTANT
     isa_ok($Foo->get_method($method_name), 'Class::MOP::Method');
     {
         no strict 'refs';
-        is($Foo->get_method($method_name)->body, \&{'Foo::' . $method_name}, '... body matches CODE ref in package');
+        is($Foo->get_method($method_name)->body, \&{'Foo::' . $method_name}, '... body matches CODE ref in package for ' . $method_name);
     }
 }