32 |
if (/^(.+)\s=>\s(.+)$/) { |
if (/^(.+)\s=>\s(.+)$/) { |
33 |
my ($k,$v) = ($1,$2); |
my ($k,$v) = ($1,$2); |
34 |
# store in array if it doesn't exist |
# store in array if it doesn't exist |
35 |
if (! grep(/^$v$/, @{$main::cache->{mem_lookup}->{$k}})) { |
if (! grep(/^\Q$v\E$/, @{$main::cache->{mem_lookup}->{$k}})) { |
36 |
push @{$main::cache->{mem_lookup}->{$k}}, $v; |
push @{$main::cache->{mem_lookup}->{$k}}, $v; |
37 |
#print STDERR "## mem_lookup store: $k => $v [",join("|",@{$main::cache->{mem_lookup}->{$k}}),"]\n"; |
#print STDERR "## mem_lookup store: $k => $v [",join("|",@{$main::cache->{mem_lookup}->{$k}}),"]\n"; |
38 |
} |
} |