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

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

revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC revision 19 by ulpfr, Tue May 9 11:29:45 2000 UTC
# Line 102  sub delete { Line 102  sub delete {
102    
103    defined $self->{db} or $self->open;    defined $self->{db} or $self->open;
104    
105    my $tuple = join($;, map($parm{$_}, @{$self->{attr}}));    my $tuple = join($;, map($parm{$_}||"", @{$self->{attr}}));
106    
107    delete $self->{db}->{$tuple};    delete $self->{db}->{$tuple};
108  }  }
Legend:
Removed from v.13  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26