projects
/
webpac
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
local configuration changes
[webpac]
/
index_DBI_cache.pm
diff --git
a/index_DBI_cache.pm
b/index_DBI_cache.pm
index
3c43bc7
..
2c82097
100644
(file)
--- a/
index_DBI_cache.pm
+++ b/
index_DBI_cache.pm
@@
-69,9
+69,9
@@
sub delete_and_create {
#print "#### delete_and_create($field)\n";
my $sql = "select count(*) from $field";
#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!
# 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();
}
my $sql = "drop table $field";
my $sth = $self->{dbh}->do($sql) || warn "SQL: $sql - ".$sth->errstr();
}