X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs%2FClass.xs;h=0ecd0675f4f5a51c04809f7f19432af203e0c603;hb=dc5e9ece5f3f9eaaba6e37e59286ba531bcc03b6;hp=0b8a968bbe79353a8e6bd2737ff1ed65deebdd8f;hpb=505797c102fd557028b46f7c68e31d02a87bfdb9;p=gitmo%2FClass-MOP.git

diff --git a/xs/Class.xs b/xs/Class.xs
index 0b8a968..0ecd067 100644
--- a/xs/Class.xs
+++ b/xs/Class.xs
@@ -100,8 +100,8 @@ 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)));
-
-        /* in  $self->{methods} does not yet exist (or got deleted) */
+    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());
             sv_2mortal(new_map_ref);