--- trunk/filter/mem_lookup.pm	2004/07/07 20:51:37	383
+++ trunk/filter/mem_lookup.pm	2006/05/24 19:05:25	742
@@ -32,7 +32,7 @@
 		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";
 			}