This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid negative shift in scan_num()
authorZefram <zefram@fysh.org>
Wed, 6 Dec 2017 01:40:43 +0000 (01:40 +0000)
committerZefram <zefram@fysh.org>
Wed, 6 Dec 2017 01:40:43 +0000 (01:40 +0000)
commit7c6e7cf06853eef1d1b271077c402c5f8655fbe6
treedba122c2b78c8294bba96179d51e2ebcdbb3ddb5
parentc86de4c07d8483411299c7c5d7d78f4fdaa4b225
avoid negative shift in scan_num()

Lengthy binaryish floating point literals used to perform illegal bit
shifts.  Ignore digits that are past the end of the significand at an
earlier stage to avoid this.  Code fix by Tony C.  Fixes [perl #131894].
t/op/hexfp.t
toke.c