From: Vincent Pit 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/?a=commitdiff_plain;h=f0156ba56d815d220b7f943d5f34cd726488c5db;p=perl%2Fmodules%2Findirect.git 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;