In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/1f9a1c0bdb88fe8f4b38dadcebb4988215612692?hp=8736d1c336efff364daa33d27d0381c4de4771d0>
- Log ----------------------------------------------------------------- commit 1f9a1c0bdb88fe8f4b38dadcebb4988215612692 Author: Karl Williamson <[email protected]> Date: Sat Sep 12 21:02:24 2015 -0600 PATCH [perl #126036] toke.c: Silence some compiler warnings The ticket proposes a new format to output IV's as hex using capital letters for the digits A-F. However, this isn't necessary in this case, as even though these are IV's, they can never be negative, and we have an existing format that prints these fine. More work needs to be done to fix the problem if something larger than an IV is used (currently it loops). ----------------------------------------------------------------------- Summary of changes: toke.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/toke.c b/toke.c index 3ee234c..1b7860a 100644 --- a/toke.c +++ b/toke.c @@ -3018,14 +3018,14 @@ S_scan_const(pTHX_ char *start) else if (convert_unicode) { /* diag_listed_as: Invalid range "%s" in transliteration operator */ Perl_croak(aTHX_ - "Invalid range \"\\N{U+%04X}-\\N{U+%04X}\"" + "Invalid range \"\\N{U+%04"UVXf"}-\\N{U+%04"UVXf"}\"" " in transliteration operator", range_min, range_max); } else { /* diag_listed_as: Invalid range "%s" in transliteration operator */ Perl_croak(aTHX_ - "Invalid range \"\\x{%04X}-\\x{%04X}\"" + "Invalid range \"\\x{%04"UVXf"}-\\x{%04"UVXf"}\"" " in transliteration operator", range_min, range_max); } -- Perl5 Master Repository
