X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.c;h=fae2d6db9b8fc9ffc9129c7efda51d0bfba07cf8;hb=efe15bf0980629945e70e47a4eaaffc5bdc49b7d;hp=e3b7798065731dd9293fd7a6db11f5bbaf607fc3;hpb=c1a7495a9639962ce446532c71ba34cb952935b4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.c b/pp.c
index e3b7798..fae2d6d 100644
--- a/pp.c
+++ b/pp.c
@@ -4738,7 +4738,9 @@ PP(pp_push)
 
 	PL_delaymagic = 0;
 	SP = ORIGMARK;
-	PUSHi( AvFILLp(ary) + 1 );
+	if (OP_GIMME(PL_op, 0) != G_VOID) {
+	    PUSHi( AvFILL(ary) + 1 );
+	}
     }
     RETURN;
 }