Cure perl 5.6 problem

diff --git a/Changes b/Changes
index f62c22b..d777353 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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%

diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm
index 82e28a2..69be59a 100644 (file)
--- a/lib/Class/Accessor/Grouped.pm
+++ b/lib/Class/Accessor/Grouped.pm
@@ -718,7 +718,7 @@ $gen_accessor = sub {
 
     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
   }