prototype changes for eventually supporting C<binmode(F, ":raw")>

and C<open F, "-|", 'cat', '-v'>

p4raw-id: //depot/perl@5554

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 322e194c54..8b3a69f951 100644
--- a/toke.c
+++ b/toke.c
@@ -3984,7 +3984,7 @@ Perl_yylex(pTHX)
 	    LOP(OP_BIND,XTERM);
 
 	case KEY_binmode:
-	    UNI(OP_BINMODE);
+	    LOP(OP_BINMODE,XTERM);
 
 	case KEY_bless:
 	    LOP(OP_BLESS,XTERM);