pp.c: remove unneeded SPAGAIN's

Spotted by Coverity.

I've left the SPAGAIN but commented out, in case future changes
to the code make them needed again.

1 files changed, 2 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index c9d9e1a77d..f7957256e8 100644
--- a/pp.c
+++ b/pp.c
@@ -5435,7 +5435,7 @@ PP(pp_push)
 	ENTER_with_name("call_PUSH");
 	call_sv(SV_CONST(PUSH),G_SCALAR|G_DISCARD|G_METHOD_NAMED);
 	LEAVE_with_name("call_PUSH");
-	SPAGAIN;
+	/* SPAGAIN; not needed: SP is assigned to immediately below */
     }
     else {
 	if (SvREADONLY(ary) && MARK < SP) Perl_croak_no_modify();
@@ -5488,7 +5488,7 @@ PP(pp_unshift)
 	ENTER_with_name("call_UNSHIFT");
 	call_sv(SV_CONST(UNSHIFT),G_SCALAR|G_DISCARD|G_METHOD_NAMED);
 	LEAVE_with_name("call_UNSHIFT");
-	SPAGAIN;
+	/* SPAGAIN; not needed: SP is assigned to immediately below */
     }
     else {
 	SSize_t i = 0;