pp.c:pp_ord: 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, 3 insertions, 3 deletions

diff --git a/pp.c b/pp.c
index 549001c02c..9bd188eb69 100644
--- a/pp.c
+++ b/pp.c
@@ -3366,7 +3366,7 @@ PP(pp_ord)
 {
     dSP; dTARGET;
 
-    SV *argsv = POPs;
+    SV *argsv = TOPs;
     STRLEN len;
     const U8 *s = (U8*)SvPV_const(argsv, len);
 
@@ -3377,11 +3377,11 @@ PP(pp_ord)
         argsv = tmpsv;
     }
 
-    XPUSHu(DO_UTF8(argsv)
+    SETu(DO_UTF8(argsv)
            ? utf8n_to_uvchr(s, len, 0, UTF8_ALLOW_ANYUV)
            : (UV)(*s));
 
-    RETURN;
+    return NORMAL;
 }
 
 PP(pp_chr)