[Moose-commits] r7360 - in Class-MOP/trunk: lib/Class t

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-01-22 13:52:37 -0800 (Thu, 22 Jan 2009)
New Revision: 7360

Modified:
   Class-MOP/trunk/lib/Class/MOP.pm
   Class-MOP/trunk/t/306_is_class_loaded.t
Log:
try to make t/306_is_class_loaded.t skip except when it is meaningful

Modified: Class-MOP/trunk/lib/Class/MOP.pm
===================================================================
--- Class-MOP/trunk/lib/Class/MOP.pm	2009-01-22 21:44:48 UTC (rev 7359)
+++ Class-MOP/trunk/lib/Class/MOP.pm	2009-01-22 21:52:37 UTC (rev 7360)
@@ -31,11 +31,11 @@
     *check_package_cache_flag = \&mro::get_pkg_gen;
 }
 
-our $VERSION   = '0.75';
+our $VERSION   = '0.76';
 our $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';    
-    
+
 # after that everything is loaded, if we're allowed try to load faster XS
 # versions of various things
 _try_load_xs() or _load_pure_perl();
@@ -57,6 +57,8 @@
 
             require Devel::GlobalDestruction;
             Devel::GlobalDestruction->import("in_global_destruction");
+
+            *USING_XS = sub () { 1 };
         };
         $@;
     };
@@ -71,7 +73,9 @@
     Sub::Identify->import('get_code_info');
 
     *subname = sub { $_[1] };
-    *in_global_destruction = sub () { !1 }
+    *in_global_destruction = sub () { !1 };
+
+    *USING_XS = sub () { 0 };
 }
 
 

Modified: Class-MOP/trunk/t/306_is_class_loaded.t
===================================================================
--- Class-MOP/trunk/t/306_is_class_loaded.t	2009-01-22 21:44:48 UTC (rev 7359)
+++ Class-MOP/trunk/t/306_is_class_loaded.t	2009-01-22 21:52:37 UTC (rev 7360)
@@ -8,7 +8,7 @@
 use Class::MOP ();
 
 plan 'skip_all' => 'This test is only meaningful for an XS-enabled CMOP with Perl < 5.10'
-    unless $Class::MOP::USING_XS && ! Class::MOP::IS_RUNNING_ON_5_10();
+    unless Class::MOP::USING_XS() && ! Class::MOP::IS_RUNNING_ON_5_10();
 
 plan tests => 1;