From: Christopher H. Laco <claco@cpan.org>
Date: Thu, 25 May 2006 01:27:45 +0000 (+0000)
Subject: Changed get_inherited to check for definedness on class variable
X-Git-Tag: v0.04000~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=301f15cd662f6dc75ab49fa17af40d331d191d47;p=p5sagit%2FClass-Accessor-Grouped.git

Changed get_inherited to check for definedness on class variable
---

diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm
index 09210de..9a552ce 100644
--- a/lib/Class/Accessor/Grouped.pm
+++ b/lib/Class/Accessor/Grouped.pm
@@ -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});
     };
 }