/[wait]/cvs-head/lib/WAIT/Query/Base.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 /cvs-head/lib/WAIT/Query/Base.pm

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

revision 20 by cvs2svn, Tue May 9 11:29:45 2000 UTC revision 40 by laperla, Mon Nov 13 10:44:03 2000 UTC
# Line 98  sub execute { Line 98  sub execute {
98                         @_                         @_
99                       }                       }
100                      );                      );
101        # warn sprintf("DEBUG: attr[%s]cont[%s]raw[%s]scalar keys %%r[%d]",
102        #             $fld,
103        #             $self->{Plain}->{$fld},
104        #             $self->{Raw}->{$fld},
105        #             scalar keys %r
106        #            );
107      my ($key, $val);      my ($key, $val);
108      while (($key, $val) = each %r) {      while (($key, $val) = each %r) {
109        if (exists $result{$key}) {        if (exists $result{$key}) {
Legend:
Removed from v.20  
changed lines
  Added in v.40
  ViewVC Help
Powered by ViewVC 1.1.26