git-svn-id: file:///home/dpavlin/private/svn/webpac/branches/hidra@739
13eb9ef6-21d5-0310-b721-
a9d68796d827
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";
}