diff options
| author | Mark Stosberg <mark@summersault.com> | 2007-12-20 10:11:30 -0800 |
|---|---|---|
| committer | Michael G. Schwern <schwern@pobox.com> | 2009-12-12 20:58:50 -0800 |
| commit | 427be8550d0731ebdd0d120da31a97c14d1c1979 (patch) | |
| tree | ef329c0007ef3bc557c2a40924823a5c2535f3dc | |
| parent | 773d3add0d1bafe9ea98c3f2bf2d9dcfac0daa8d (diff) | |
import SQL-Interp 1.06 from CPAN1.06
git-cpan-module: SQL-Interp
git-cpan-version: 1.06
git-cpan-authorid: MARKSTOS
git-cpan-file: authors/id/M/MA/MARKSTOS/SQL-Interp-1.06.tar.gz
| -rw-r--r-- | Build.PL | 1 | ||||
| -rw-r--r-- | Changes | 6 | ||||
| -rw-r--r-- | META.yml | 20 | ||||
| -rw-r--r-- | Makefile.PL | 19 | ||||
| -rw-r--r-- | lib/DBIx/Interp.pm | 2 | ||||
| -rw-r--r-- | lib/SQL/Interp.pm | 5 |
6 files changed, 34 insertions, 19 deletions
@@ -11,5 +11,6 @@ Module::Build->new( Filter::Simple => 0, Scalar::Util => 0 }, + create_makefile_pl => 'traditional', dist_author => [ 'David Manura (http://math2.org/david/contact)' , 'Mark Stosberg <mark@summersault.com>' ], )->create_build_script(); @@ -1,4 +1,10 @@ +1.06 2007-12-20 + + [INTERNALS] + - Fix warnings introduced in 1.05 + - Fix Build.PL to create Makefile.PL + 1.05 2007-11-15 - Support "NOT IN" with an empty list (Aristotle, test by Mark Stosberg, RT#30752) @@ -1,35 +1,35 @@ --- name: SQL-Interp -version: 1.05 +version: 1.06 author: - - David Manura (http://math2.org/david/contact) + - "David Manura (http://math2.org/david/contact)" - 'Mark Stosberg <mark@summersault.com>' abstract: Interpolate Perl variables into SQL statements license: perl -resources: - license: http://dev.perl.org/licenses/ requires: DBI: 1 recommends: Filter::Simple: 0 Scalar::Util: 0 Text::Balanced: 1.87 +generated_by: Module::Build version 0.2808 +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.2.html + version: 1.2 provides: DBIx::Interp: file: lib/DBIx/Interp.pm - version: 1.05 + version: 1.06 DBIx::Interp::STX: file: lib/DBIx/Interp.pm DBIx::Interp::db: file: lib/DBIx/Interp.pm SQL::Interp: file: lib/SQL/Interp.pm - version: 1.05 + version: 1.06 SQL::Interp::SQL: file: lib/SQL/Interp.pm SQL::Interp::Variable: file: lib/SQL/Interp.pm -generated_by: Module::Build version 0.2806 -meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.2.html - version: 1.2 +resources: + license: http://dev.perl.org/licenses/ diff --git a/Makefile.PL b/Makefile.PL index 1bf9921..63a61f1 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,7 +1,14 @@ +# Note: this file was auto-generated by Module::Build::Compat version 0.03 use ExtUtils::MakeMaker; - -WriteMakefile( - NAME => 'SQL::Interp', - VERSION_FROM => 'lib/SQL/Interp.pm', - PL_FILES => {} # ignore Build.PL -); +WriteMakefile +( + 'PL_FILES' => {}, + 'INSTALLDIRS' => 'site', + 'NAME' => 'SQL::Interp', + 'EXE_FILES' => [], + 'VERSION_FROM' => 'lib/SQL/Interp.pm', + 'PREREQ_PM' => { + 'DBI' => '1' + } + ) +; diff --git a/lib/DBIx/Interp.pm b/lib/DBIx/Interp.pm index 56ab69d..9154481 100644 --- a/lib/DBIx/Interp.pm +++ b/lib/DBIx/Interp.pm @@ -6,7 +6,7 @@ use Carp; use SQL::Interp ':all'; use base qw(Exporter DBI); -our $VERSION = '1.05'; +our $VERSION = '1.06'; our @EXPORT; our %EXPORT_TAGS = (all => [qw( diff --git a/lib/SQL/Interp.pm b/lib/SQL/Interp.pm index aaa24b1..d485018 100644 --- a/lib/SQL/Interp.pm +++ b/lib/SQL/Interp.pm @@ -1,6 +1,6 @@ package SQL::Interp; -our $VERSION = '1.05'; +our $VERSION = '1.06'; use strict; use warnings; @@ -164,7 +164,8 @@ sub _sql_interp { } elsif (ref $item) { if ($sql =~ /\b(NOT\s+)?IN\s*$/si) { - my $not = quotemeta($1) || ''; + my $not = quotemeta($1 || ''); + $item = [ $$item ] if ref $item eq 'SCALAR'; if (ref $item eq 'ARRAY') { if (@$item == 0) { |