diff options
| author | Karl Williamson <khw@cpan.org> | 2015-09-12 21:02:24 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-09-13 07:36:07 -0600 |
| commit | 1f9a1c0bdb88fe8f4b38dadcebb4988215612692 (patch) | |
| tree | 5eb406f3235a6db0bef699d7d7b7ee866d571319 | |
| parent | 8736d1c336efff364daa33d27d0381c4de4771d0 (diff) | |
| download | perl-1f9a1c0bdb88fe8f4b38dadcebb4988215612692.tar.gz | |
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).
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); } |