From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 24 Mar 2007 16:58:28 +0000 (+0000)
Subject: Now that readpipe defaults to $_, I should update the prototype table
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=01f5bc1b1054964df4fcf07067d574b936dee120;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -174,7 +174,7 @@ read (*\$$;$)
 readdir (*)
 readline (;*)
 readlink (_)
-readpipe ($)
+readpipe (_)
 recv (*\$$$)
 redo undef
 ref (_)