From: Vincent Pit <vince@profvince.com>
Date: Thu, 7 May 2009 22:45:59 +0000 (+0200)
Subject: Pass copies as hook arguments
X-Git-Tag: v0.13~11
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=f0156ba56d815d220b7f943d5f34cd726488c5db

Pass copies as hook arguments
---

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;