From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 16 Feb 1998 22:13:04 +0000 (+0000)
Subject: Missing PUSHMARK in unshift TIEARRAY hook
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7fd66d9d30123afaec1f02787836d8154d73e836;p=p5sagit%2Fp5-mst-13.2.git

Missing PUSHMARK in unshift TIEARRAY hook

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

diff --git a/pp.c b/pp.c
index 34e340d..25129791 100644
--- a/pp.c
+++ b/pp.c
@@ -2758,9 +2758,8 @@ PP(pp_unshift)
     MAGIC *mg;
 
     if (SvRMAGICAL(ary) && (mg = mg_find((SV*)ary,'P'))) {
-
-
 	*MARK-- = mg->mg_obj;
+	PUSHMARK(MARK);
 	PUTBACK;
 	ENTER;
 	perl_call_method("UNSHIFT",G_SCALAR|G_DISCARD);