Change the internal prototype of the pop() and shift() builtins

to (;\@), to reflect that their array argument is optional.

p4raw-id: //depot/perl@20910

2 files changed, 4 insertions, 4 deletions

diff --git a/opcode.h b/opcode.h
index 159d74def8..4de3dee137 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 5a3beed671..e13d14de25 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