Fixed some of the tests under perl -d.

    * t/082_get_code_info.t
      - Add $^P &= ~0x200; (per Ovid's suggestion) in order to not munger
        anonymous subs when under -d and so making the tests succeed
        in that case.

diff --git a/Changes b/Changes
index a0486cb..f1055e7 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Class-MOP.
 
+    * t/082_get_code_info.t
+      - Add $^P &= ~0x200; (per Ovid's suggestion) in order to not munger
+        anonymous subs when under -d and so making the tests succeed
+        in that case.
+
 0.72 Mon, December 8, 2008
     * Class::MOP::Package
       - Pass options to _new, so subclass' attributes can be

diff --git a/t/082_get_code_info.t b/t/082_get_code_info.t
index e3c74e0..700d36d 100644 (file)
--- a/t/082_get_code_info.t
+++ b/t/082_get_code_info.t
@@ -6,6 +6,7 @@ use warnings;
 use Test::More;
 
 BEGIN {
+    $^P &= ~0x200; # Don't munger anonymous sub names
     if ( eval 'use Sub::Name qw(subname); 1;' ) {
         plan tests => 5;
     }