1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

silenced a compile-time deprecation warning (Unescaped left brace in regex is deprecated) under bleadperl

This commit is contained in:
Kenichi Ishigaki 2014-11-26 17:47:54 +09:00
parent 76c4cc1cfa
commit 1cedb037a8

View file

@ -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)