From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 14 Nov 2008 21:04:53 +0000 (+0000)
Subject: Don't mortalize the CVs behind inlined constants in the xs version of get_all_package... 
X-Git-Tag: 0.70~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8babf00a7bcada40b132205f6c5a165141dff5c0;p=gitmo%2FClass-MOP.git

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

diff --git a/MOP.xs b/MOP.xs
index ae34df5..73d2df5 100644
--- 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;