[Bast-commits] r9815 - Class-Accessor-Grouped/trunk/lib/Class/Accessor

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-12-19 01:25:01 +0000 (Sun, 19 Dec 2010)
New Revision: 9815

Modified:
   Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
Log:
Silence warnings in case the expected shim gets garbage collected before any calls

Modified: Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
===================================================================
--- Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-12-19 01:16:24 UTC (rev 9814)
+++ Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-12-19 01:25:01 UTC (rev 9815)
@@ -689,7 +689,7 @@
       # if after this shim was created someone wrapped it with an 'around',
       # we can not blindly reinstall the method slot - we will destroy the
       # wrapper. Silently chain execution further...
-      if ($expected_cref != $current_class->can($methname)) {
+      if ( !$expected_cref or $expected_cref != $current_class->can($methname) ) {
 
         # there is no point in re-determining it on every subsequent call,
         # just store for future reference