[asperl] integrate latest win32 branch

p4raw-id: //depot/asperl@569

1 files changed, 1 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index c98ac83cb3..c78c845ce1 100644
--- a/pp.c
+++ b/pp.c
@@ -2760,9 +2760,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);