X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FSearch.pm;h=1851c837845c465582edfc43723e039b733a21f5;hb=c863d530229051bd598a389a968c5dd2f24ba4c5;hp=c0555e2bb302b0dfdd241e742c9370ccae205cb4;hpb=976d1881dc169228ed327cd52eba12d29bb9bf42;p=deb%2Fpackages.git diff --git a/lib/Packages/Search.pm b/lib/Packages/Search.pm index c0555e2..1851c83 100644 --- a/lib/Packages/Search.pm +++ b/lib/Packages/Search.pm @@ -134,9 +134,10 @@ sub parse_params { 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) {