Don't mortalize the CVs behind inlined constants in the xs version of get_all_package...

diff --git a/MOP.xs b/MOP.xs
index ae34df5..73d2df5 100644 (file)
--- a/MOP.xs
+++ b/MOP.xs
@@ -136,7 +136,7 @@ get_all_package_symbols(self, ...)
                             key = HePV(he, keylen);
                             package = HvNAME(stash);
                             fq = newSVpvf("%s::%s", package, key);
-                            sv = sv_2mortal((SV*)get_cv(SvPV_nolen(fq), 0));
+                            sv = (SV*)get_cv(SvPV_nolen(fq), 0);
                             break;
                         default:
                             continue;