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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-11-27 15:45:08 +0000 (Sat, 27 Nov 2010)
New Revision: 9802

Modified:
   Class-Accessor-Grouped/trunk/Changes
   Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
Log:
Cure perl 5.6 problem

Modified: Class-Accessor-Grouped/trunk/Changes
===================================================================
--- Class-Accessor-Grouped/trunk/Changes	2010-11-27 15:41:24 UTC (rev 9801)
+++ Class-Accessor-Grouped/trunk/Changes	2010-11-27 15:45:08 UTC (rev 9802)
@@ -1,5 +1,8 @@
 Revision history for Class::Accessor::Grouped.
 
+    - Fix perl 5.6 failures
+    - Add test-time deferred coderef reinvocation checks
+
 0.09009 Fri Nov 26 01:31:56 2010
     - Major cleanup and optimization of code (evaled coderef sharing)
     - Module can now operate in PurePerl environments with 100%

Modified: Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
===================================================================
--- Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-11-27 15:41:24 UTC (rev 9801)
+++ Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-11-27 15:45:08 UTC (rev 9802)
@@ -718,7 +718,7 @@
 
     no warnings 'redefine';
     local $@ if __CAG_UNSTABLE_DOLLARAT;
-    eval "sub ${class}::${methname}{$src}";
+    eval "sub ${class}::${methname} { $src }";
 
     undef;  # so that no further attempt will be made to install anything
   }