walkero
/
pcre2
1
0
Fork 0
Code Issues Pull Requests Projects Releases 1 Wiki Activity

Allow for #pattern -no_start_optimize in perltest script.

This commit is contained in:
Philip.Hazel 2018-07-27 16:42:25 +00:00
parent e9aa3c0a21
commit f8a18f65be
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
perltest.sh
View File

@ -46,6 +46,7 @@ fi
# mark show mark information # mark show mark information
# no_auto_possess ignored # no_auto_possess ignored
# no_start_optimize insert (??{""}) at pattern start (disables optimizing) # no_start_optimize insert (??{""}) at pattern start (disables optimizing)
# -no_start_optimize ignored
# subject_literal does not process subjects for escapes # subject_literal does not process subjects for escapes
# ucp sets Perl's /u modifier # ucp sets Perl's /u modifier
# utf invoke UTF-8 functionality # utf invoke UTF-8 functionality
@ -231,8 +232,10 @@ for (;;)
$mod =~ s/no_auto_possess,?//; $mod =~ s/no_auto_possess,?//;
# Use no_start_optimize (disable PCRE2 start-up optimization) to disable Perl # Use no_start_optimize (disable PCRE2 start-up optimization) to disable Perl
# optimization by inserting (??{""}) at the start of the pattern. # optimization by inserting (??{""}) at the start of the pattern. We may
# also encounter -no_start_optimize from a #pattern setting.
$mod =~ s/-no_start_optimize,?//;
if ($mod =~ s/no_start_optimize,?//) { $pat =~ s/$del/$del(??{""})/; } if ($mod =~ s/no_start_optimize,?//) { $pat =~ s/$del/$del(??{""})/; }
# Add back retained modifiers and check that the pattern is valid. # Add back retained modifiers and check that the pattern is valid.