pp.c:pp_gelem: Less stack fiddling

Instead of pop, pop, push, just do one pop and then replace the
remaining item.  Also, there is no need to extend the stack here, as
pp_gelem returns fewer items than it consumes.

1 files changed, 2 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 9d049eaaa0..cb0707e880 100644
--- a/pp.c
+++ b/pp.c
@@ -646,7 +646,7 @@ PP(pp_gelem)
     SV *sv = POPs;
     STRLEN len;
     const char * const elem = SvPV_const(sv, len);
-    GV * const gv = MUTABLE_GV(POPs);
+    GV * const gv = MUTABLE_GV(TOPs);
     SV * tmpRef = NULL;
 
     sv = NULL;
@@ -712,7 +712,7 @@ PP(pp_gelem)
 	sv_2mortal(sv);
     else
 	sv = &PL_sv_undef;
-    XPUSHs(sv);
+    SETs(sv);
     RETURN;
 }