Branch: refs/heads/blead
Home: https://github.com/Perl/perl5
Commit: 17ad661f846426aa913ce213ba8c8c5a070142e5
https://github.com/Perl/perl5/commit/17ad661f846426aa913ce213ba8c8c5a070142e5
Author: TAKAI Kousuke <[email protected]>
Date: 2024-08-14 (Wed, 14 Aug 2024)
Changed paths:
M toke.c
Log Message:
-----------
scan_num: Remove redundant code for impossible negative number
scan_num() is called to parse tokens beginning with a digit, decimal
point ('.') or 'v' (for v-string) only (otherwise san_num will croak),
and all of such tokens themselves cannot be negative.
Therefore grok_number() never returns IS_NUMBER_NEG, and
`flags == (IS_NUMBER_IN_UV | IS_NUMBER_NEG))` will never happen.
In addition, `if (uv <= IV_MAX) sv = newSViv(uv); else sv = newSVuv(uv);`
was redundant, as newSVuv() will do the same thing.
To unsubscribe from these emails, change your notification settings at
https://github.com/Perl/perl5/settings/notifications
