my @p_value_no_replace = @p_value;
if ($params{$param}{replace} && @p_value) {
- @p_value = ();
foreach my $pattern (keys %{$params{$param}{replace}}) {
- foreach (@p_value_no_replace) {
+ my @p_value_tmp = @p_value;
+ @p_value = ();
+ foreach (@p_value_tmp) {
if ($_ eq $pattern) {
my $replacement = $params{$param}{replace}{$_};
if (ref $replacement) {
$postfixes->seq( $key, $prefixes, R_CURSOR );
while (index($key, $keyword) >= 0) {
if ($prefixes =~ /^\001(\d+)/o) {
+ debug( "$key has too many hits", 2 );
$too_many_hits += $1;
} else {
foreach (split /\000/o, $prefixes) {