From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 26 Aug 2003 19:37:29 +0000 (+0000)
Subject: Change the internal prototype of the pop() and shift() builtins
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=26f600bce139656723472a5e845906a60241815e;p=p5sagit%2Fp5-mst-13.2.git

Change the internal prototype of the pop() and shift() builtins
to (;\@), to reflect that their array argument is optional.

p4raw-id: //depot/perl@20910
---

diff --git a/opcode.h b/opcode.h
index 159d74d..4de3dee 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1625,8 +1625,8 @@ EXT U32 PL_opargs[] = {
 	0x00004805,	/* anonhash */
 	0x05326801,	/* splice */
 	0x0004691d,	/* push */
-	0x00007604,	/* pop */
-	0x00007604,	/* shift */
+	0x00017604,	/* pop */
+	0x00017604,	/* shift */
 	0x0004691d,	/* unshift */
 	0x0005a801,	/* sort */
 	0x00004809,	/* reverse */
diff --git a/opcode.pl b/opcode.pl
index 5a3beed..e13d14d 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -647,8 +647,8 @@ anonhash	anonymous hash ({})	ck_fun		ms@	L
 
 splice		splice			ck_fun		m@	A S? S? L
 push		push			ck_fun		imsT@	A L
-pop		pop			ck_shift	s%	A
-shift		shift			ck_shift	s%	A
+pop		pop			ck_shift	s%	A?
+shift		shift			ck_shift	s%	A?
 unshift		unshift			ck_fun		imsT@	A L
 sort		sort			ck_sort		m@	C? L
 reverse		reverse			ck_fun		mt@	L