[Catalyst-commits] r8736 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-12-05 07:38:02 +0000 (Fri, 05 Dec 2008)
New Revision: 8736

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
Log:
Fix a shitload "used once, possible typo" warnings.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2008-12-05 07:26:36 UTC (rev 8735)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2008-12-05 07:38:02 UTC (rev 8736)
@@ -30,7 +30,7 @@
       foreach my $super ( $meta->linearized_isa ) {
         # tighter version of same after
         # my $super_meta = Moose::Meta::Class->initialize($super);
-        my $v = *{"${super}::${attribute}"}{SCALAR};
+        my $v = ${"${super}::"}{$attribute} ? *{"${super}::${attribute}"}{SCALAR} : undef;
         if (defined ${$v}) {
           return ${$v};
         }