summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-03-24 16:58:28 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-03-24 16:58:28 +0000
commit01f5bc1b1054964df4fcf07067d574b936dee120 (patch)
treea3cc36ab46d36fb3d54e00a9740cf6c09e79870c
parent0858480c587822bc316d0ab82ff83dfc094fbae7 (diff)
downloadperl-01f5bc1b1054964df4fcf07067d574b936dee120.tar.gz
Now that readpipe defaults to $_, I should update the prototype table
in opcode.pl too. p4raw-id: //depot/perl@30749
-rw-r--r--opcode.h2
-rwxr-xr-xopcode.pl2
-rw-r--r--t/op/cproto.t2
3 files changed, 3 insertions, 3 deletions
diff --git a/opcode.h b/opcode.h
index df4a6dce21..7acce1968b 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1558,7 +1558,7 @@ EXTCONST U32 PL_opargs[] = {
0x00002206, /* srefgen */
0x0001368c, /* ref */
0x00122804, /* bless */
- 0x00003608, /* backtick */
+ 0x00013688, /* backtick */
0x00012808, /* glob */
0x0001d608, /* readline */
0x00000c08, /* rcatline */
diff --git a/opcode.pl b/opcode.pl
index 995ed4f2f0..d2602a2db7 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -594,7 +594,7 @@ bless bless ck_fun s@ S S?
# Pushy I/O.
-backtick quoted execution (``, qx) ck_open t% 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?
diff --git a/t/op/cproto.t b/t/op/cproto.t
index a4dd691629..3bc8b27aa1 100644
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -174,7 +174,7 @@ read (*\$$;$)
readdir (*)
readline (;*)
readlink (_)
-readpipe ($)
+readpipe (_)
recv (*\$$$)
redo undef
ref (_)