This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 30034 wasn't enough to silence the warnings - also need to
[perl5.git] / op.c
diff --git a/op.c b/op.c
index 8e3e5f8..97cebc0 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3452,9 +3452,9 @@ Perl_newGVOP(pTHX_ I32 type, I32 flags, GV *gv)
     assert(gv);
 #ifdef USE_ITHREADS
     GvIN_PAD_on(gv);
     assert(gv);
 #ifdef USE_ITHREADS
     GvIN_PAD_on(gv);
-    return newPADOP(type, flags, SvREFCNT_inc_simple(gv));
+    return newPADOP(type, flags, SvREFCNT_inc_simple_NN(gv));
 #else
 #else
-    return newSVOP(type, flags, SvREFCNT_inc_simple(gv));
+    return newSVOP(type, flags, SvREFCNT_inc_simple_NN(gv));
 #endif
 }
 
 #endif
 }