Fix spurious GVSV OPpOUR_INTRO

Message-ID: <14935.41722.239364.55174@soda.csua.berkeley.edu>

p4raw-id: //depot/perl@8363

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 3cbfd6dc84..379b0b9939 100644
--- a/op.c
+++ b/op.c
@@ -5451,6 +5451,7 @@ Perl_ck_rvconst(pTHX_ register OP *o)
 #else
 	    kid->op_sv = SvREFCNT_inc(gv);
 #endif
+	    kid->op_private = 0;
 	    kid->op_ppaddr = PL_ppaddr[OP_GV];
 	}
     }