X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FClassData.pm;h=6b14d7ef9988bfe0436a883cf19e6ff7b830fb26;hp=3dde73af36f55da543e11861e94ce61df294b748;hb=df3ea11bb1ad740663f2a4c909fba71612aa6a48;hpb=5baa3bbcb8bea403665bceaa82f819905f0b501f diff --git a/lib/Catalyst/ClassData.pm b/lib/Catalyst/ClassData.pm index 3dde73a..6b14d7e 100644 --- a/lib/Catalyst/ClassData.pm +++ b/lib/Catalyst/ClassData.pm @@ -33,6 +33,7 @@ sub mk_classdata { # then copy it into our package. Is this the correct # fix for C::D::I back-compat? (t0m) my $parent_symbol = *{"${super}::${attribute}"}{CODE} ? \&{"${super}::${attribute}"} : undef; + # FIXME - this is over-enthusiastic? if (defined $parent_symbol) { *{"${pkg}::${attribute}"} = $parent_symbol; }