pp.c:pp_oct: Less stack fiddling

No need for pop and push, since we accept and return one item.  No
need to extend the stack.  No need for PUTBACK.

1 files changed, 4 insertions, 4 deletions

diff --git a/pp.c b/pp.c
index 71252f988c..47dcb12185 100644
--- a/pp.c
+++ b/pp.c
@@ -2911,7 +2911,7 @@ PP(pp_oct)
     STRLEN len;
     NV result_nv;
     UV result_uv;
-    SV* const sv = POPs;
+    SV* const sv = TOPs;
 
     tmps = (SvPV_const(sv, len));
     if (DO_UTF8(sv)) {
@@ -2940,12 +2940,12 @@ PP(pp_oct)
         result_uv = grok_oct (tmps, &len, &flags, &result_nv);
 
     if (flags & PERL_SCAN_GREATER_THAN_UV_MAX) {
-        XPUSHn(result_nv);
+        SETn(result_nv);
     }
     else {
-        XPUSHu(result_uv);
+        SETu(result_uv);
     }
-    RETURN;
+    return NORMAL;
 }
 
 /* String stuff. */