This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix bug in script runs that start with Common
authorKarl Williamson <khw@cpan.org>
Sat, 6 Jan 2018 23:18:45 +0000 (16:18 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Jan 2018 05:12:46 +0000 (22:12 -0700)
commit81eabee7ebe039eef2e114b9bb87eeff66cded15
treea8c2f51e59d6f0dff45b9852f5df6da4a3f24199
parent5a4b063463af8b0b7a15707f5612fda4a9d4e2cc
Fix bug in script runs that start with Common

This is a follow on to 8535a06fea02528fe726855a139fcbd360d1fc6e.  That
fixed one case where the first character was in the Common script,
things did not work properly.  It did not catch the case where a future
character in the string was non-Common from a script that has its own
set of digits, and this commit fixes that.

This just entails moving a block of code to slightly earlier.
regexec.c
t/re/script_run.t