sv_vcatpvfn(): Simplify print format

The print took a character, cast it to UV and then printed it as an
octal UV.  But why not just print it as an unsigned octal character?
The code that did this was part of a sweeping commit of a bunch of
things, so no explanation there.

1 files changed, 1 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index b6ce11ee98..e305c1e77c 100644
--- a/sv.c
+++ b/sv.c
@@ -13306,8 +13306,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                         if (isPRINT(*f)) {
                             sv_catpvn_nomg(msg, f, 1);
                         } else {
-                            Perl_sv_catpvf(aTHX_ msg,
-                                           "\\%03" UVof, (UV)*f & 0xFF);
+                            Perl_sv_catpvf(aTHX_ msg, "\\%03o", (U8) *f);
                         }
                     }
                     sv_catpvs(msg, "\"");