/[webpac]/trunk/filter/mem_lookup.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/filter/mem_lookup.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 383 by dpavlin, Wed Jul 7 20:51:37 2004 UTC revision 742 by dpavlin, Wed May 24 19:05:25 2006 UTC
# Line 32  sub mem_lookup { Line 32  sub mem_lookup {
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                          }                          }

Legend:
Removed from v.383  
changed lines
  Added in v.742

  ViewVC Help
Powered by ViewVC 1.1.26