From: Shlomi Fish <shlomif@iglu.org.il>
Date: Tue, 9 Dec 2008 16:48:42 +0000 (+0000)
Subject: Fixed some of the tests under perl -d.
X-Git-Tag: 0.73~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=351e50298c530c468482832e482ea4a159d09b25;p=gitmo%2FClass-MOP.git

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
--- 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
--- 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;
     }