[Bast-commits] r7804 - in trunk/Class-Accessor-Grouped: . lib/Class/Accessor

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-10-20 23:19:14 +0000 (Tue, 20 Oct 2009)
New Revision: 7804

Modified:
   trunk/Class-Accessor-Grouped/Changes
   trunk/Class-Accessor-Grouped/Makefile.PL
   trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
Log:
removing Class::XSAccessor for now

Modified: trunk/Class-Accessor-Grouped/Changes
===================================================================
--- trunk/Class-Accessor-Grouped/Changes	2009-10-20 17:25:12 UTC (rev 7803)
+++ trunk/Class-Accessor-Grouped/Changes	2009-10-20 23:19:14 UTC (rev 7804)
@@ -1,5 +1,8 @@
 Revision history for Class::Accessor::Grouped.
 
+0.09002 Tue Oct 20 23:16:28 2009
+    - removing Class::XSAccessor usage for now
+
 0.09001 Thu Oct  1 21:48:06 2009
     - remove optional dep from Makefile.PL
 

Modified: trunk/Class-Accessor-Grouped/Makefile.PL
===================================================================
--- trunk/Class-Accessor-Grouped/Makefile.PL	2009-10-20 17:25:12 UTC (rev 7803)
+++ trunk/Class-Accessor-Grouped/Makefile.PL	2009-10-20 23:19:14 UTC (rev 7804)
@@ -13,8 +13,10 @@
 requires 'MRO::Compat';
 requires 'Class::Inspector';
 requires 'Sub::Name' => '0.04';
-requires 'Class::XSAccessor';
 
+# removed due to segfaults, see _hasXS()
+#requires 'Class::XSAccessor';
+
 test_requires 'Sub::Identify';
 
 clean_files "Class-Accessor-Grouped-* t/var";

Modified: trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
===================================================================
--- trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2009-10-20 17:25:12 UTC (rev 7803)
+++ trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2009-10-20 23:19:14 UTC (rev 7804)
@@ -7,7 +7,7 @@
 use MRO::Compat;
 use Sub::Name ();
 
-our $VERSION = '0.09001';
+our $VERSION = '0.09002';
 $VERSION = eval $VERSION;
 
 =head1 NAME
@@ -440,20 +440,24 @@
 
 # This is now a hard, rather than optional dep. Since we dep on Sub::Name, we no
 # longer care about not using XS modules.
+
+# Class::XSAccessor is segfaulting in some places, so removing for now.
 {
     our $hasXS;
 
-    sub _hasXS {
-        return $hasXS if defined $hasXS;
-    
-        $hasXS = 0;
-        eval {
-            require Class::XSAccessor;
-            $hasXS = 1;
-        };
-    
-        return $hasXS;
-    }
+    sub _hasXS { 0 }
+
+#    sub _hasXS {
+#        return $hasXS if defined $hasXS;
+#    
+#        $hasXS = 0;
+#        eval {
+#            require Class::XSAccessor;
+#            $hasXS = 1;
+#        };
+#    
+#        return $hasXS;
+#    }
 }
 
 1;