This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Now that readpipe defaults to $_, I should update the prototype table
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 24 Mar 2007 16:58:28 +0000 (16:58 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 24 Mar 2007 16:58:28 +0000 (16:58 +0000)
in opcode.pl too.

p4raw-id: //depot/perl@30749

opcode.h
opcode.pl
t/op/cproto.t

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 */
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?
index a4dd691..3bc8b27 100644 (file)
@@ -174,7 +174,7 @@ read (*\$$;$)
 readdir (*)
 readline (;*)
 readlink (_)
-readpipe ($)
+readpipe (_)
 recv (*\$$$)
 redo undef
 ref (_)