pp.c: oct() now skips "0o" and "o" prefix.

t/op/oct.t: Add test for oct() with 0o and o prefix.

1 files changed, 5 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 5b5e163011..5e1706346d 100644
--- a/pp.c
+++ b/pp.c
@@ -3099,8 +3099,12 @@ PP(pp_oct)
         flags |= PERL_SCAN_DISALLOW_PREFIX;
         result_uv = grok_bin (tmps, &len, &flags, &result_nv);
     }
-    else
+    else {
+        if (isALPHA_FOLD_EQ(*tmps, 'o')) {
+            tmps++, len--;
+        }
         result_uv = grok_oct (tmps, &len, &flags, &result_nv);
+    }
 
     if (flags & PERL_SCAN_GREATER_THAN_UV_MAX) {
         SETn(result_nv);