summaryrefslogtreecommitdiff
path: root/opcode.pl
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-03-24 21:14:22 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-03-24 21:14:22 +0000
commite4b7ebf3387ae98739a0f53e0f27fa7a6228338f (patch)
tree45a7b8a5f380fa06c8b5c0d8852f562fa78ef38a /opcode.pl
parent01f5bc1b1054964df4fcf07067d574b936dee120 (diff)
downloadperl-e4b7ebf3387ae98739a0f53e0f27fa7a6228338f.tar.gz
Make readline() default to *ARGV.
Plus MAD fixes. p4raw-id: //depot/perl@30750
Diffstat (limited to 'opcode.pl')
-rwxr-xr-xopcode.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/opcode.pl b/opcode.pl
index d2602a2db7..3897ab16c5 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -597,7 +597,7 @@ bless bless ck_fun s@ S S?
backtick quoted execution (``, qx) ck_open tu% S?
# glob defaults its first arg to $_
glob glob ck_glob t@ S?
-readline <HANDLE> ck_null t% F?
+readline <HANDLE> ck_readline t% F?
rcatline append I/O operator ck_null t$
# Bindable operators.