diff options
| -rw-r--r-- | lib/PublicInbox/Over.pm | 1 | ||||
| -rw-r--r-- | lib/PublicInbox/OverIdx.pm | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/lib/PublicInbox/Over.pm b/lib/PublicInbox/Over.pm index e5a980d5..5d285057 100644 --- a/lib/PublicInbox/Over.pm +++ b/lib/PublicInbox/Over.pm @@ -36,7 +36,6 @@ sub dbh_new { $st = pack('dd', $st[0], $st[1]); } while ($st ne $self->{st} && $tries++ < 3); warn "W: $f: .st_dev, .st_ino unstable\n" if $st ne $self->{st}; - $dbh->{sqlite_unicode} = 1; $dbh; } diff --git a/lib/PublicInbox/OverIdx.pm b/lib/PublicInbox/OverIdx.pm index 008a5d1a..13aa2d74 100644 --- a/lib/PublicInbox/OverIdx.pm +++ b/lib/PublicInbox/OverIdx.pm @@ -12,7 +12,7 @@ use strict; use warnings; use base qw(PublicInbox::Over); use IO::Handle; -use DBI qw(:sql_types); # SQL_BLOB +use DBI; use PublicInbox::MID qw/id_compress mids_for_index references/; use PublicInbox::Smsg qw(subject_normalized); use Compress::Zlib qw(compress); @@ -309,7 +309,7 @@ VALUES (?,?,?,?,?,?) my $n = 0; my @v = ($num, $tid, $sid, $ts, $ds); foreach (@v) { $sth->bind_param(++$n, $_) } - $sth->bind_param(++$n, $ddd, SQL_BLOB); + $sth->bind_param(++$n, $ddd); $sth->execute; $sth = $dbh->prepare_cached(<<''); INSERT INTO id2num (id, num) VALUES (?,?) |