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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-12-19 01:15:39 +0000 (Sun, 19 Dec 2010)
New Revision: 9813

Modified:
   Class-Accessor-Grouped/trunk/Changes
   Class-Accessor-Grouped/trunk/Makefile.PL
   Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
Log:
Require bugfixed Class::XSAccessor

Modified: Class-Accessor-Grouped/trunk/Changes
===================================================================
--- Class-Accessor-Grouped/trunk/Changes	2010-12-19 01:09:36 UTC (rev 9812)
+++ Class-Accessor-Grouped/trunk/Changes	2010-12-19 01:15:39 UTC (rev 9813)
@@ -2,6 +2,7 @@
 
     - Fix grave bug of XS-enabled simple accessors clobbering an
       existing 'around' overlay installed in the same method slot
+    - Require bugfixed XSAccessor, remove Win32 caveat
 
 0.10001 Sun Dec 12 03:17:05 2010
     - Fix an ActiveState Win32 incompatibility

Modified: Class-Accessor-Grouped/trunk/Makefile.PL
===================================================================
--- Class-Accessor-Grouped/trunk/Makefile.PL	2010-12-19 01:09:36 UTC (rev 9812)
+++ Class-Accessor-Grouped/trunk/Makefile.PL	2010-12-19 01:15:39 UTC (rev 9813)
@@ -16,8 +16,8 @@
 if (can_cc or $Module::Install::AUTHOR) {
   requires 'Sub::Name' => '0.05';
 
-  requires 'Class::XSAccessor' => '1.06'
-    if ($^O ne 'MSWin32' and $] > '5.008');
+  requires 'Class::XSAccessor' => '1.11'
+    if $] > '5.008';
 }
 
 test_requires 'Test::More' => '0.94';

Modified: Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
===================================================================
--- Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-12-19 01:09:36 UTC (rev 9812)
+++ Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-12-19 01:15:39 UTC (rev 9813)
@@ -12,7 +12,7 @@
 # the Makefile.PL as well
 our $__minimum_xsa_version;
 BEGIN {
-    $__minimum_xsa_version = '1.06';
+    $__minimum_xsa_version = '1.11';
 }
 
 our $USE_XS;
@@ -410,8 +410,7 @@
 internally while performing get/set actions, which makes it noticeably
 slower than similar modules. To compensate, this module will automatically
 use the insanely fast L<Class::XSAccessor> to generate the C<simple>-group
-accessors, if L<< Class::XSAccessor >= 1.06|Class::XSAccessor >> is
-available on your system.
+accessors if this module is available on your system.
 
 =head2 Benchmark
 
@@ -454,12 +453,6 @@
 the symbol table to install a C<get/set_simple> override - you get to keep
 all the pieces.
 
-While L<Class::XSAccessor> works surprisingly well for the amount of black
-magic it tries to pull off, it's still black magic. At present (Sep 2010)
-the module is known to have problems on Windows under heavy thread-stress
-(e.g. Win32+Apache+mod_perl). Thus for the time being L<Class::XSAccessor>
-will not be used automatically if you are running under C<MSWin32>.
-
 =head1 AUTHORS
 
 Matt S. Trout <mst at shadowcatsystems.co.uk>
@@ -553,12 +546,9 @@
 }
 
 # Autodetect unless flag supplied
-# Class::XSAccessor is segfaulting on win32, in some
-# esoteric heavily-threaded scenarios
-# Win32 users can set $USE_XS/CAG_USE_XS to try to use it anyway
 my $xsa_autodetected;
 if (! defined $USE_XS) {
-  $USE_XS = (!__CAG_NO_CXSA and $^O ne 'MSWin32') ? 1 : 0;
+  $USE_XS = __CAG_NO_CXSA ? 0 : 1;
   $xsa_autodetected++;
 }