From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 27 Jan 2007 22:48:39 +0000 (+0000)
Subject: Change 30034 wasn't enough to silence the warnings - also need to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff8997d7fa0815ca182064f36b72cbf89750ce04;p=p5sagit%2Fp5-mst-13.2.git

Change 30034 wasn't enough to silence the warnings - also need to
pass a never-NULL parameter to newPADOP from newGVOP

p4raw-id: //depot/perl@30043
---

diff --git a/op.c b/op.c
index 8e3e5f8..97cebc0 100644
--- 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);
-    return newPADOP(type, flags, SvREFCNT_inc_simple(gv));
+    return newPADOP(type, flags, SvREFCNT_inc_simple_NN(gv));
 #else
-    return newSVOP(type, flags, SvREFCNT_inc_simple(gv));
+    return newSVOP(type, flags, SvREFCNT_inc_simple_NN(gv));
 #endif
 }