X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs%2FClass.xs;h=bad7864ada4dfa5fa666de8cfbddc0b23fb3d556;hb=ed19a029b34da07fc877d57d0b7207525d08c245;hp=c638d41dd583f2b770519b8eaf3788fec6558510;hpb=06339195a193f9f4d5898fe03fd7a688ca564cbd;p=gitmo%2FClass-MOP.git diff --git a/xs/Class.xs b/xs/Class.xs index c638d41..bad7864 100644 --- a/xs/Class.xs +++ b/xs/Class.xs @@ -100,7 +100,7 @@ get_method_map(self) current = mop_check_package_cache_flag(aTHX_ stash); cache_flag = HeVAL( hv_fetch_ent(obj, KEY_FOR(package_cache_flag), TRUE, HASH_FOR(package_cache_flag))); map_ref = HeVAL( hv_fetch_ent(obj, KEY_FOR(methods), TRUE, HASH_FOR(methods))); - PPCODE: + /* $self->{methods} does not yet exist (or got deleted) */ if ( !SvROK(map_ref) || SvTYPE(SvRV(map_ref)) != SVt_PVHV ) { SV *new_map_ref = newRV_noinc((SV *)newHV());