Missing PUSHMARK in unshift TIEARRAY hook

p4raw-id: //depot/perl@528

diff --git a/pp.c b/pp.c
index 34e340d..2512979 100644 (file)
--- 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);