This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix script run bug '1' followed by Thai digit
authorKarl Williamson <khw@cpan.org>
Thu, 16 Aug 2018 22:14:01 +0000 (16:14 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 16 Aug 2018 22:20:12 +0000 (16:20 -0600)
commit7da8e27b9d7d2be4e770d074405ddb9941e6c8b7
tree6f03a118993e2d60d36944139db899a4ffff3b5a
parent4c83fb55d7096a1d0e6a7a8e25d20b186be3281d
Fix script run bug '1' followed by Thai digit

This does not have a ticket, but was pointed out in
http://nntp.perl.org/group/perl.perl5.porters/251870

The logic for deciding if it was needed to check if a character is a
digit was flawed.
regexec.c
t/re/script_run.t