fix mem_lookup with values which include characters which can be interpreted as regexes

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@742 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/filter/mem_lookup.pm b/filter/mem_lookup.pm
index d193356..f29e12c 100644 (file)
--- a/filter/mem_lookup.pm
+++ b/filter/mem_lookup.pm
@@ -32,7 +32,7 @@ sub mem_lookup {
                if (/^(.+)\s=>\s(.+)$/) {
                        my ($k,$v) = ($1,$2);
                        # store in array if it doesn't exist
-                       if (! grep(/^$v$/, @{$main::cache->{mem_lookup}->{$k}})) {
+                       if (! grep(/^\Q$v\E$/, @{$main::cache->{mem_lookup}->{$k}})) {
                                push @{$main::cache->{mem_lookup}->{$k}}, $v;
 #print STDERR "## mem_lookup store: $k => $v [",join("|",@{$main::cache->{mem_lookup}->{$k}}),"]\n";
                        }