[interchange] Remove /o flag from iterate_hash_list()
Mark Johnson <[email protected]>
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 2b7e29de7cf8bb7ee467b614617e56bd75b41c13 Author: Mark Johnson <[email protected]> Date: Sun Jul 6 15:21:05 2014 -0400 Remove /o flag from iterate_hash_list() * /o in the -next and -last regexes causes the regex pattern to freeze with whatever prefix happens to be used on the first run of the routine. This is particularly pernicious in pre-fork where the daemon may be used dozens of times after the initial run that freezes the pattern. * Modified flags to match those of the regex counterparts in iterate_array_list(). lib/Vend/Interpolate.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) --- diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm index dcd5234..7ed57e2 100644 --- a/lib/Vend/Interpolate.pm +++ b/lib/Vend/Interpolate.pm @@ -4511,9 +4511,9 @@ sub iterate_hash_list { elsif($tmp) { $return = 1; } - '' #xoge; + '' #ixge; $run =~ s#$B$QR{_next}$E$QR{'/_next'}# - interpolate_html($1) != 0 ? next : '' #oge; + interpolate_html($1) != 0 ? next : '' #ixge; $run =~ s/<option\s*/<option SELECTED /i if $opt_select and $opt_select->($code);