From 1cedb037a81e42221e2e75d3bdd27eb59c043194 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Wed, 26 Nov 2014 17:47:54 +0900
Subject: [PATCH] silenced a compile-time deprecation warning (Unescaped left
 brace in regex is deprecated) under bleadperl

---
 lib/DBD/SQLite/VirtualTable/PerlData.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/DBD/SQLite/VirtualTable/PerlData.pm b/lib/DBD/SQLite/VirtualTable/PerlData.pm
index d5b6bfa..7bbcb0d 100644
--- a/lib/DBD/SQLite/VirtualTable/PerlData.pm
+++ b/lib/DBD/SQLite/VirtualTable/PerlData.pm
@@ -194,7 +194,7 @@ sub FILTER {
 
   # print STDERR "PERL CODE:\n", $perl_code, "\n";
 
-  $self->{is_wanted_row} = eval $perl_code
+  $self->{is_wanted_row} = do { no warnings; eval $perl_code }
     or die "couldn't eval q{$perl_code} : $@";
 
   # position the cursor to the first matching row (or to eof)