--- trunk/index_DBI_cache.pm 2003/07/04 18:23:00 60 +++ trunk/index_DBI_cache.pm 2003/07/11 20:14:19 83 @@ -99,7 +99,7 @@ $index_data = substr($index_data,0,255); my $uc = uc($index_data); if (! $c_table->{$field}->{$ident}->{$uc}) { - $sth_cache{$field."insert"}->execute($index_data,$ident,0) || die "cache: $field insert; ".$self->{dbh}->errstr(); + $sth_cache{$field."insert"}->execute($index_data,$ident,0) || warn "cache: $field insert ($index_data,$ident); ".$self->{dbh}->errstr(); #print stderr "in index: $index_data\n"; $c_table->{$field}->{$ident}->{$uc} = $index_data; $c_count->{$field}->{$ident}->{$uc} = 1;