Make the error message for an unfound method (that is being wrapped) a little clearer.

[gitmo/Class-MOP.git] / t / 082_get_code_info.t

diff --git a/t/082_get_code_info.t b/t/082_get_code_info.t
index 6eb66ad..47dfa9e 100644 (file)
--- a/t/082_get_code_info.t
+++ b/t/082_get_code_info.t
@@ -1,12 +1,11 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
 use Test::More;
 
 BEGIN {
-    if ( eval 'use Sub::Name qw(subname);' ) {
+    $^P &= ~0x200; # Don't munger anonymous sub names
+    if ( eval 'use Sub::Name qw(subname); 1;' ) {
         plan tests => 5;
     }
     else {