--- branches/humanistika/filter/mem_lookup.pm	2006/06/06 12:34:25	747
+++ branches/humanistika/filter/mem_lookup.pm	2006/06/06 12:35:31	748
@@ -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";
 			}