From: Vincent Pit 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); }