added SQLite parametar sqlite_handle_binary_nulls

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@226 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/index_DBI_cache.pm b/index_DBI_cache.pm
index 43a1b27..3c43bc7 100644 (file)
--- a/index_DBI_cache.pm
+++ b/index_DBI_cache.pm
@@ -51,6 +51,13 @@ sub new {
 
        $self->bench("connected to $dbd as $user");
 
+       # force SQLite to support binary 0 in data (which shouldn't
+       # happend, but it did to me)
+       eval {
+               no warnings 'all';
+               $self->{dbh}->{sqlite_handle_binary_nulls} = 1;
+       };
+
        return $self;
 }