readline should behave as <>, not <<>>

This fixes bug #123990. The cause was that one promotion to
OP_READLINE was not cleaning the special flag on that op.

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 9ddfb9b8e3..bbf6a8d4a0 100644
--- a/op.c
+++ b/op.c
@@ -10334,7 +10334,7 @@ Perl_ck_readline(pTHX_ OP *o)
     }
     else {
 	OP * const newop
-	    = newUNOP(OP_READLINE, o->op_flags | OPf_SPECIAL, newGVOP(OP_GV, 0, PL_argvgv));
+	    = newUNOP(OP_READLINE, 0, newGVOP(OP_GV, 0, PL_argvgv));
 	op_free(o);
 	return newop;
     }