diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-24 16:58:28 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-24 16:58:28 +0000 |
commit | 01f5bc1b1054964df4fcf07067d574b936dee120 (patch) | |
tree | a3cc36ab46d36fb3d54e00a9740cf6c09e79870c | |
parent | 0858480c587822bc316d0ab82ff83dfc094fbae7 (diff) | |
download | perl-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.h | 2 | ||||
-rwxr-xr-x | opcode.pl | 2 | ||||
-rw-r--r-- | t/op/cproto.t | 2 |
3 files changed, 3 insertions, 3 deletions
@@ -1558,7 +1558,7 @@ EXTCONST U32 PL_opargs[] = { 0x00002206, /* srefgen */ 0x0001368c, /* ref */ 0x00122804, /* bless */ - 0x00003608, /* backtick */ + 0x00013688, /* backtick */ 0x00012808, /* glob */ 0x0001d608, /* readline */ 0x00000c08, /* rcatline */ @@ -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 (_) |