apply patch from Goro Fuji for anon class mem leak

[gitmo/Class-MOP.git] / mop.c

diff --git a/mop.c b/mop.c
index 126568d..0fc1be1 100644 (file)
--- a/mop.c
+++ b/mop.c
@@ -149,7 +149,7 @@ mop_get_package_symbols (HV *stash, type_filter_t filter, get_package_symbols_cb
                            but that's the API */
                         key = HePV(he, keylen);
                         package = HvNAME(stash);
-                        fq = newSVpvf("%s::%s", package, key);
+                        fq = sv_2mortal(newSVpvf("%s::%s", package, key));
                         sv = (SV *)get_cv(SvPV_nolen(fq), 0);
                         break;
                     }