Now that readpipe defaults to $_, I should update the prototype table

in opcode.pl too.

p4raw-id: //depot/perl@30749

diff --git a/opcode.h b/opcode.h
index df4a6dc..7acce19 100644 (file)
--- 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 995ed4f..d2602a2 100755 (executable)
--- 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 a4dd691..3bc8b27 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -174,7 +174,7 @@ read (*\$$;$)
 readdir (*)
 readline (;*)
 readlink (_)
-readpipe ($)
+readpipe (_)
 recv (*\$$$)
 redo undef
 ref (_)