Replace an occurrence of SvREFCNT_inc by SvREFCNT_inc_simple_NN

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index 8e6c789b1b0098315650bf8b05193aac0eb0c77e..0b8de4df0d0715c790aacb254f39b301eb7958a9 100644 (file)
--- 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);
  }