pp.c: pp_boolkeys does not need to pop

If it’s going to consume and return exactly one item, it doesn’t need
to decrement and increment the stack pointer.

1 files changed, 4 insertions, 4 deletions

diff --git a/pp.c b/pp.c
index dd202889c6..7565a9dda1 100644
--- a/pp.c
+++ b/pp.c
@@ -5722,19 +5722,19 @@ PP(pp_boolkeys)
 {
     dVAR;
     dSP;
-    HV * const hv = (HV*)POPs;
+    HV * const hv = (HV*)TOPs;
     
-    if (SvTYPE(hv) != SVt_PVHV) { XPUSHs(&PL_sv_no); RETURN; }
+    if (SvTYPE(hv) != SVt_PVHV) RETSETNO;
 
     if (SvRMAGICAL(hv)) {
 	MAGIC * const mg = mg_find((SV*)hv, PERL_MAGIC_tied);
 	if (mg) {
-            XPUSHs(magic_scalarpack(hv, mg));
+            SETs(magic_scalarpack(hv, mg));
 	    RETURN;
         }	    
     }
 
-    XPUSHs(boolSV(HvUSEDKEYS(hv) != 0));
+    SETs(boolSV(HvUSEDKEYS(hv) != 0));
     RETURN;
 }