Replace an occurrence of SvREFCNT_inc by SvREFCNT_inc_simple_NN
[perl/modules/indirect.git] / indirect.xs
index 8e6c789..0b8de4d 100644 (file)
@@ -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);
  }