[interchange] Remove /o flag from iterate_hash_list()
Mark Johnson
interchange-cvs at icdevgroup.org
Sun Jul 6 19:25:11 UTC 2014
commit 2b7e29de7cf8bb7ee467b614617e56bd75b41c13
Author: Mark Johnson <mark at endpoint.com>
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);
More information about the interchange-cvs
mailing list