From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 27 Nov 2010 15:45:08 +0000 (+0000)
Subject: Cure perl 5.6 problem
X-Git-Tag: v0.10000~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd9750940ac55f86ffa87313bda265f51990fa4d;p=p5sagit%2FClass-Accessor-Grouped.git

Cure perl 5.6 problem
---

diff --git a/Changes b/Changes
index f62c22b..d777353 100644
--- 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
--- 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
   }