X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=f3aa14b4ce3c11f009c3d7b79d6d7b3fa2b4bb5e;hp=b248a19ae64d16867ece884615a2873c7e2b8a8f;hb=f0156ba56d815d220b7f943d5f34cd726488c5db;hpb=3540bf4697eff4d70c752e166b7bb44fbd256535

diff --git a/indirect.xs b/indirect.xs
index b248a19..f3aa14b 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -514,6 +514,8 @@ STATIC OP *indirect_ck_entersub(pTHX_ OP *o) {
 
    if (hint) {
     dSP;
+    onamesv = sv_mortalcopy(onamesv);
+    mnamesv = sv_mortalcopy(mnamesv);
 
     ENTER;
     SAVETMPS;