This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
assert legality of bitshifts in scan_num()
authorZefram <zefram@fysh.org>
Wed, 6 Dec 2017 01:10:31 +0000 (01:10 +0000)
committerZefram <zefram@fysh.org>
Wed, 6 Dec 2017 01:10:31 +0000 (01:10 +0000)
commitc86de4c07d8483411299c7c5d7d78f4fdaa4b225
tree35a0b3d65991e8288f950ed1811939f858f98e44
parent38a3df78b8fbbdf02988dd5fe691c23a8041334f
assert legality of bitshifts in scan_num()

[perl #131894] found some negative-exponent shifting going on here.
Make the illegality more accessible by asserting.
toke.c