From: Vincent Pit <vince@profvince.com>
Date: Tue, 10 Mar 2015 20:01:30 +0000 (-0300)
Subject: Simplify vmg_pp_propagate_errsv() so that ERRSV is not used as a lvalue
X-Git-Tag: rt101410~1
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=9ed6790ce779d2ca91e392ceeb016d555658d8c0;p=perl%2Fmodules%2FVariable-Magic.git

Simplify vmg_pp_propagate_errsv() so that ERRSV is not used as a lvalue
---

diff --git a/Magic.xs b/Magic.xs
index 61bc9e0..3419502 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1375,8 +1375,8 @@ STATIC OP *vmg_pp_propagate_errsv(pTHX) {
  SVOP *o = cSVOPx(PL_op);
 
  if (o->op_sv) {
-  SvREFCNT_dec(ERRSV);
-  ERRSV    = o->op_sv;
+  sv_setsv(ERRSV, o->op_sv);
+  SvREFCNT_dec(o->op_sv);
   o->op_sv = NULL;
  }