Merge branch 'sqlite' into public/9.1

CPAN/arch/5.32/DBD/SQLite/VirtualTable.pm

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Scalar::Util    qw/weaken/;
 
-our $VERSION = '1.58';
+our $VERSION = '1.76';
 our @ISA;
 
 

CPAN/arch/5.32/DBD/SQLite/VirtualTable/PerlData.pm

@@ -88,7 +88,7 @@ sub BEST_INDEX {
   # in FILTER() for deciding which rows match the constraints.
   my @conditions;
   my $ix = 0;
-  foreach my $constraint (grep {$_->{usable}} @$constraints) {
+  foreach my $constraint (grep {$_->{usable} and exists $SQLOP2PERLOP{ $_->{op} } } @$constraints) {
     my $col = $constraint->{col};
     my ($member, $optype);
 
@@ -389,7 +389,7 @@ time.  Here is a way to do it with a virtual table :
   my @files = ... ; # list of files to inspect
 
   # apply the L<stat> function to each file
-  our $file_stats = [ map {($_, stat $_)} @files];
+  our $file_stats = [ map { [ $_, stat $_ ] } @files];
 
   # create a temporary virtual table
   $dbh->do(<<"");