--- branches/tehnika/index_DBI_cache.pm 2004/08/27 17:21:00 399 +++ branches/tehnika/index_DBI_cache.pm 2004/08/27 17:23:14 400 @@ -69,9 +69,9 @@ #print "#### delete_and_create($field)\n"; my $sql = "select count(*) from $field"; - my $sth = $self->{dbh}->prepare($sql) || die $self->{dbh}->errstr(); + my $sth = $self->{dbh}->prepare($sql); # FIX: this is not a good way to check if table exists! - if ($sth->execute() && $sth->fetchrow_hashref) { + if ($sth && $sth->execute() && $sth->fetchrow_hashref) { my $sql = "drop table $field"; my $sth = $self->{dbh}->do($sql) || warn "SQL: $sql - ".$sth->errstr(); }