constant ranges could escape bareword check in list context

p4raw-id: //depot/perl@4760

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index d38a387ae6..0351b0ece4 100644
--- a/op.c
+++ b/op.c
@@ -2236,6 +2236,7 @@ Perl_gen_constant_list(pTHX_ register OP *o)
 
     PL_op = curop = LINKLIST(o);
     o->op_next = 0;
+    peep(curop);
     pp_pushmark();
     CALLRUNOPS(aTHX);
     PL_op = curop;