Pass copies as hook arguments

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index b248a19ae64d16867ece884615a2873c7e2b8a8f..f3aa14b4ce3c11f009c3d7b79d6d7b3fa2b4bb5e 100644 (file)
--- 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;