From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 15 Aug 1998 23:27:54 +0000 (-0400)
Subject: fix bogus integerization of pop()'s return value
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a9f58cadb705f6c8610a5b7e21bcd43f3dec6756;p=p5sagit%2Fp5-mst-13.2.git

fix bogus integerization of pop()'s return value
	Message-Id: <199808160327.XAA05186@aatma.engin.umich.edu>
	Subject: Re: Complex expression does integer arithmetic

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

diff --git a/opcode.h b/opcode.h
index 8f4f00b..37b0516 100644
--- a/opcode.h
+++ b/opcode.h
@@ -2320,7 +2320,7 @@ EXT U32 opargs[] = {
 	0x00002505,	/* anonhash */
 	0x02993501,	/* splice */
 	0x0002351d,	/* push */
-	0x00003c14,	/* pop */
+	0x00003c04,	/* pop */
 	0x00003c04,	/* shift */
 	0x0002351d,	/* unshift */
 	0x0002d501,	/* sort */
diff --git a/opcode.pl b/opcode.pl
index f2ed795..f9c7503 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -432,7 +432,7 @@ 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	si%	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