From 1c1fc3ea10284b28de560550fae130e9d453e5c1 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 5 Mar 2000 20:02:17 +0000
Subject: prototype changes for eventually supporting C<binmode(F, ":raw")> and
 C<open F, "-|", 'cat', '-v'>

p4raw-id: //depot/perl@5554
---
 toke.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toke.c')

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);
-- 
cgit v1.2.1