regcomp.c: Change Debug output of char classes

This commit causes the debug output that was formerly "\x4ff", for
example to be \x{4f}f.  It always puts braces around the hex to separate
it from other characters.

diff --git a/regcomp.c b/regcomp.c
index b3c66b8..fdd8493 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -15491,12 +15491,7 @@ S_put_byte(pTHX_ SV *sv, int c)
             case '\a': Perl_sv_catpvf(aTHX_ sv, "\\a"); break;
 
             default:
-                if (c < 256) {
-                    Perl_sv_catpvf(aTHX_ sv, "\\x%02x", c);
-                }
-                else {
-                    Perl_sv_catpvf(aTHX_ sv, "\\x{%x}", c);
-                }
+                Perl_sv_catpvf(aTHX_ sv, "\\x{%x}", c);
                 break;
         }
     }