Branch: refs/heads/blead
Home: https://github.com/Perl/perl5
Commit: e1c60a5de80391903ce3f33e708d032cd2ba9b0a
https://github.com/Perl/perl5/commit/e1c60a5de80391903ce3f33e708d032cd2ba9b0a
Author: Karl Williamson
Date: 2022-02-02 (Wed, 02 Feb 2022)
Changed paths:
M toke.c
Log Message:
---
toke.c: Fix potential C sign error
Taking (UV)(* char) isn't what was meant. Instead it should be
(UV) * (U8 *)(char).
(and the UV cast becomes irrelevant in this case).
If the C compiler defaults char to unsigned, it doesn't matter. Nor
does it matter if the char value is positive. But it gives the wrong
result when 'char' means 'signed char' and the value is negative.
Experimentally adding non-ASCII brackets to this code showed up this
error.