This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the executable slightly smaller by using PL_hexdigit in
authorNicholas Clark <nick@ccl4.org>
Fri, 6 Oct 2006 21:56:46 +0000 (21:56 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 6 Oct 2006 21:56:46 +0000 (21:56 +0000)
Perl_sv_vcatpvfn.

p4raw-id: //depot/perl@28952

sv.c

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];