From: Vincent Pit <vince@profvince.com>
Date: Wed, 15 Jul 2009 16:25:23 +0000 (+0200)
Subject: Replace an occurrence of SvREFCNT_inc by SvREFCNT_inc_simple_NN
X-Git-Tag: v0.17~6
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=a7dee39dbc49e2cec37531a8594b70e30bdc7012;p=perl%2Fmodules%2Findirect.git

Replace an occurrence of SvREFCNT_inc by SvREFCNT_inc_simple_NN
---

diff --git a/indirect.xs b/indirect.xs
index 8e6c789..0b8de4d 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -348,7 +348,7 @@ STATIC SV *indirect_tag(pTHX_ SV *value) {
 
  if (SvOK(value) && SvROK(value)) {
   value = SvRV(value);
-  SvREFCNT_inc(value);
+  SvREFCNT_inc_simple_NN(value);
   tag = PTR2UV(value);
  }