Add the "no 6" / "no v6" syntax.

p4raw-id: //depot/perl@25344

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index c0cca4e7b7..c6b85a32cd 100644
--- a/op.c
+++ b/op.c
@@ -3057,6 +3057,8 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg)
 	imop = arg;		/* no import on explicit () */
     else if (SvNIOKp(((SVOP*)idop)->op_sv)) {
 	imop = Nullop;		/* use 5.0; */
+	if (!aver)
+	    idop->op_private |= OPpCONST_NOVER;
     }
     else {
 	SV *meth;