Update from Robin Barker to correct perldelta and Maintainers.pl for Pod-Plainer

[perl5.git] / pp.c

diff --git a/pp.c b/pp.c
index e3b7798..fae2d6d 100644 (file)
--- 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;
 }