X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=0b8de4df0d0715c790aacb254f39b301eb7958a9;hp=8e6c789b1b0098315650bf8b05193aac0eb0c77e;hb=a7dee39dbc49e2cec37531a8594b70e30bdc7012;hpb=4cb0e2cc26fbe39a7a040b090b1a1e6c2380af0f

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);
  }