--- branches/CPAN/lib/WAIT/Index.pm 2000/04/28 15:42:44 13 +++ branches/CPAN/lib/WAIT/Index.pm 2000/05/09 11:29:45 19 @@ -102,7 +102,7 @@ defined $self->{db} or $self->open; - my $tuple = join($;, map($parm{$_}, @{$self->{attr}})); + my $tuple = join($;, map($parm{$_}||"", @{$self->{attr}})); delete $self->{db}->{$tuple}; }