Make the executable slightly smaller by using PL_hexdigit in

Perl_sv_vcatpvfn.

p4raw-id: //depot/perl@28952

diff --git a/sv.c b/sv.c
index 5d76e18..16c6523 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -9039,8 +9039,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
                switch (base) {
                    unsigned dig;
                case 16:
-                   p = (char*)((c == 'X')
-                               ? "0123456789ABCDEF" : "0123456789abcdef");
+                   p = (char *)((c == 'X') ? PL_hexdigit + 16 : PL_hexdigit);
                    do {
                        dig = uv & 15;
                        *--ptr = p[dig];