From: Florian Ragwitz <rafl@debian.org>
Date: Tue, 30 Jun 2009 18:17:52 +0000 (+0200)
Subject: There can only be one PPCODE section.
X-Git-Tag: 0.89~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed19a029b34da07fc877d57d0b7207525d08c245;hp=06339195a193f9f4d5898fe03fd7a688ca564cbd;p=gitmo%2FClass-MOP.git

There can only be one PPCODE section.
---

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());