Changed get_inherited to check for definedness on class variable
Christopher H. Laco [Thu, 25 May 2006 01:27:45 +0000 (01:27 +0000)]
lib/Class/Accessor/Grouped.pm

index 09210de..9a552ce 100644 (file)
@@ -303,7 +303,7 @@ sub get_inherited {
 
     my @supers = Class::ISA::self_and_super_path(ref $self || $self);
     foreach (@supers) {
-        return ${$_.'::_'.$get} if ${$_.'::_'.$get};
+        return ${$_.'::_'.$get} if defined(${$_.'::_'.$get});
     };
 }