Hello community, here is the log from the commit of package perl-SQL-Statement for openSUSE:Factory checked in at 2020-10-22 14:26:05 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-SQL-Statement (Old) and /work/SRC/openSUSE:Factory/.perl-SQL-Statement.new.3463 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-SQL-Statement" Thu Oct 22 14:26:05 2020 rev:32 rq:843357 version:1.414 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-SQL-Statement/perl-SQL-Statement.changes 2017-04-12 18:17:49.680282325 +0200 +++ /work/SRC/openSUSE:Factory/.perl-SQL-Statement.new.3463/perl-SQL-Statement.changes 2020-10-22 14:26:56.219001000 +0200 @@ -1,0 +2,20 @@ +Thu Oct 22 03:22:24 UTC 2020 - Tina Müller <[email protected]> + +- updated to 1.414 + see /usr/share/doc/packages/perl-SQL-Statement/Changes + + 1.414 2020-10-21 + * re-release 1.413_001 without further changes + + 1.413_001 2020-09-28 + * Spell check + * Be specific in which files to skip from the distribution + * Author fixes + * Makefile.PL: port WriteMakefile1 from Hash::Merge + * .travis.yml: update for Xenial VMs + * cleanup MANIFEST.SKIP + * bump copyright year + * SQL::Parser correctly parse VALUES and SET clauses containing function invocations with several arguments + patch provided by Edgar J. Holleis + +------------------------------------------------------------------- Old: ---- SQL-Statement-1.412.tar.gz New: ---- SQL-Statement-1.414.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-SQL-Statement.spec ++++++ --- /var/tmp/diff_new_pack.eFjaef/_old 2020-10-22 14:26:56.683001416 +0200 +++ /var/tmp/diff_new_pack.eFjaef/_new 2020-10-22 14:26:56.687001421 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-SQL-Statement # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2020 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -12,18 +12,18 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # Name: perl-SQL-Statement -Version: 1.412 +Version: 1.414 Release: 0 %define cpan_name SQL-Statement Summary: SQL parsing and processing engine -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl -Url: http://search.cpan.org/dist/SQL-Statement/ +URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/R/RE/REHSACK/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch @@ -67,14 +67,14 @@ %prep %setup -q -n %{cpan_name}-%{version} -find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644 +find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 %build -%{__perl} Makefile.PL INSTALLDIRS=vendor -%{__make} %{?_smp_mflags} +perl Makefile.PL INSTALLDIRS=vendor +make %{?_smp_mflags} %check -%{__make} test +make test %install %perl_make_install ++++++ SQL-Statement-1.412.tar.gz -> SQL-Statement-1.414.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/Changes new/SQL-Statement-1.414/Changes --- old/SQL-Statement-1.412/Changes 2017-04-06 14:13:43.000000000 +0200 +++ new/SQL-Statement-1.414/Changes 2020-10-21 14:20:42.000000000 +0200 @@ -1,5 +1,19 @@ Changes log for Perl extension SQL::Statement +1.414 2020-10-21 + * re-release 1.413_001 without further changes + +1.413_001 2020-09-28 + * Spell check + * Be specific in which files to skip from the distribution + * Author fixes + * Makefile.PL: port WriteMakefile1 from Hash::Merge + * .travis.yml: update for Xenial VMs + * cleanup MANIFEST.SKIP + * bump copyright year + * SQL::Parser correctly parse VALUES and SET clauses containing function invocations with several arguments + patch provided by Edgar J. Holleis + 1.412 2017-04-06 * Release 1.411_001 without further changes as 1.412 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/MANIFEST.SKIP new/SQL-Statement-1.414/MANIFEST.SKIP --- old/SQL-Statement-1.412/MANIFEST.SKIP 2015-05-20 20:40:59.000000000 +0200 +++ new/SQL-Statement-1.414/MANIFEST.SKIP 2020-09-28 17:23:26.000000000 +0200 @@ -26,10 +26,12 @@ ~$ .*\.planner \bxt -^MYMETA\.json$ -^MYMETA\..*$ +^MYMETA\. bugsql nytprof* .*\.csv -^\..* +\.aspell\.local\.pws +.*\.lock +\.travis\.yml SQL-Statement-.* +cover_db/ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/META.json new/SQL-Statement-1.414/META.json --- old/SQL-Statement-1.412/META.json 2017-04-06 14:47:47.000000000 +0200 +++ new/SQL-Statement-1.414/META.json 2020-10-21 16:42:51.000000000 +0200 @@ -4,13 +4,13 @@ "Jeff Zucker <[email protected]>, Jens Rehsack <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.46, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, - "version" : "2" + "version" : 2 }, "name" : "SQL-Statement", "no_index" : { @@ -97,6 +97,6 @@ "x_IRC" : "irc://irc.perl.org/#dbi", "x_MailingList" : "mailto:[email protected]'" }, - "version" : "1.412", - "x_serialization_backend" : "JSON::PP version 2.27400_02" + "version" : "1.414", + "x_serialization_backend" : "JSON::PP version 4.05" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/META.yml new/SQL-Statement-1.414/META.yml --- old/SQL-Statement-1.412/META.yml 2017-04-06 14:47:47.000000000 +0200 +++ new/SQL-Statement-1.414/META.yml 2020-10-21 16:42:51.000000000 +0200 @@ -16,7 +16,7 @@ DBI: '1.611' SQL::Statement: '1.20' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.46, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -46,5 +46,5 @@ homepage: https://metacpan.org/release/SQL-Statement license: http://dev.perl.org/licenses/ repository: https://github.com/perl5-dbi/SQL-Statement.git -version: '1.412' +version: '1.414' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/Makefile.PL new/SQL-Statement-1.414/Makefile.PL --- old/SQL-Statement-1.412/Makefile.PL 2017-03-30 10:04:38.000000000 +0200 +++ new/SQL-Statement-1.414/Makefile.PL 2020-09-25 14:26:18.000000000 +0200 @@ -59,7 +59,7 @@ WriteMakefile1( MIN_PERL_VERSION => '5.008', META_MERGE => { - 'meta-spec' => { version => 2 }, + 'meta-spec' => {version => 2}, resources => { homepage => 'https://metacpan.org/release/SQL-Statement', x_IRC => "irc://irc.perl.org/#dbi", @@ -123,26 +123,26 @@ TEST_REQUIRES => \%TEST_DEPS, LICENSE => 'perl', AUTHOR => 'Jeff Zucker <[email protected]>, Jens Rehsack <[email protected]>', - test => { TESTS => 't/*.t xt/*.t' }, + test => {TESTS => 't/*.t xt/*.t'}, ); sub CheckConflicts { my %params = @_; - my %conflicts = %{ $params{CONFLICTS} }; + my %conflicts = %{$params{CONFLICTS}}; my $found = 0; - while ( my ( $module, $version ) = each(%conflicts) ) + while (my ($module, $version) = each(%conflicts)) { undef $@; eval "require $module"; next if $@; my $installed = eval "\$" . $module . "::VERSION"; - if ( $installed le $version ) + if ($installed le $version) { ++$found; - my $msg = $module eq $params{NAME} ? $selfConflictMsg : $conflictMsg; - my $warning = sprintf( $msg, $module, $installed ); + my $msg = $module eq $params{NAME} ? $selfConflictMsg : $conflictMsg; + my $warning = sprintf($msg, $module, $installed); warn $warning; } } @@ -151,41 +151,44 @@ } sub WriteMakefile1 -{ #Written by Alexandr Ciornii, version 0.21. Added by eumm-upgrade. +{ # originally written by Alexandr Ciornii, version 0.21. Added by eumm-upgrade. my %params = @_; my $eumm_version = $ExtUtils::MakeMaker::VERSION; $eumm_version = eval $eumm_version; - die "EXTRA_META is deprecated" if ( exists( $params{EXTRA_META} ) ); - die "License not specified" if ( !exists( $params{LICENSE} ) ); + die "EXTRA_META is deprecated" if (exists($params{EXTRA_META})); + die "License not specified" if (!exists($params{LICENSE})); $params{TEST_REQUIRES} and $eumm_version < 6.6303 - and $params{BUILD_REQUIRES} = { %{ $params{BUILD_REQUIRES} || {} }, %{ delete $params{TEST_REQUIRES} } }; + and $params{BUILD_REQUIRES} = {%{$params{BUILD_REQUIRES} || {}}, %{delete $params{TEST_REQUIRES}}}; #EUMM 6.5502 has problems with BUILD_REQUIRES $params{BUILD_REQUIRES} and $eumm_version < 6.5503 - and $params{PREREQ_PM} = { %{ $params{PREREQ_PM} || {} }, %{ delete $params{BUILD_REQUIRES} } }; + and $params{PREREQ_PM} = {%{$params{PREREQ_PM} || {}}, %{delete $params{BUILD_REQUIRES}}}; ref $params{AUTHOR} and "ARRAY" eq ref $params{AUTHOR} and $eumm_version < 6.5702 - and $params{AUTHOR} = join( ", ", @{ $params{AUTHOR} } ); - delete $params{CONFIGURE_REQUIRES} if ( $eumm_version < 6.52 ); - delete $params{MIN_PERL_VERSION} if ( $eumm_version < 6.48 ); - delete $params{META_MERGE} if ( $eumm_version < 6.46 ); - delete $params{META_ADD}{prereqs} if ( $eumm_version < 6.58 ); - delete $params{META_ADD}{'meta-spec'} if ( $eumm_version < 6.58 ); - delete $params{META_ADD} if ( $eumm_version < 6.46 ); - delete $params{LICENSE} if ( $eumm_version < 6.31 ); - delete $params{AUTHOR} if ( $] < 5.005 ); - delete $params{ABSTRACT_FROM} if ( $] < 5.005 ); - delete $params{BINARY_LOCATION} if ( $] < 5.005 ); + and $params{AUTHOR} = join(", ", @{$params{AUTHOR}}); + delete $params{CONFIGURE_REQUIRES} if ($eumm_version < 6.52); + delete $params{MIN_PERL_VERSION} if ($eumm_version < 6.48); + delete $params{META_MERGE} if ($eumm_version < 6.46); + delete $params{META_ADD}{prereqs} if ($eumm_version < 6.58); + delete $params{META_ADD}{'meta-spec'} if ($eumm_version < 6.58); + delete $params{META_ADD} if ($eumm_version < 6.46); + delete $params{LICENSE} if ($eumm_version < 6.31); + delete $params{AUTHOR} if ($] < 5.005); + delete $params{ABSTRACT_FROM} if ($] < 5.005); + delete $params{BINARY_LOCATION} if ($] < 5.005); # more or less taken from Moose' Makefile.PL - if ( $params{CONFLICTS} ) + if ($params{CONFLICTS}) { my $ok = CheckConflicts(%params); - exit(0) if ( $params{PREREQ_FATAL} and not $ok ); - my $cpan_smoker = grep { $_ =~ m/(?:CR_SMOKER|CPAN_REPORTER|AUTOMATED_TESTING)/ } keys %ENV; - unless ( $cpan_smoker || $ENV{PERL_MM_USE_DEFAULT} || $ENV{SQL_STATEMENT_WARN_UPDATE} ) + exit(0) if ($params{PREREQ_FATAL} and not $ok); + my $cpan_smoker = grep { $_ =~ m/(?:CR_SMOKER|CPAN_REPORTER|AUTOMATED_TESTING)/ } + keys %ENV; + unless ($cpan_smoker + || $ENV{PERL_MM_USE_DEFAULT} + || $ENV{SQL_STATEMENT_WARN_UPDATE}) { sleep 4 unless ($ok); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Dialects/ANSI.pm new/SQL-Statement-1.414/lib/SQL/Dialects/ANSI.pm --- old/SQL-Statement-1.412/lib/SQL/Dialects/ANSI.pm 2017-04-06 14:12:09.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Dialects/ANSI.pm 2020-10-21 14:18:10.000000000 +0200 @@ -3,7 +3,7 @@ ######################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -15,7 +15,7 @@ use warnings FATAL => "all"; use vars qw($VERSION); -$VERSION = '1.412'; +$VERSION = '1.414'; use SQL::Dialects::Role; @@ -354,7 +354,7 @@ This module is copyright (c) 2001,2005 by Jeff Zucker and - copyright (c) 2007-2017 by Jens Rehsack. + copyright (c) 2007-2020 by Jens Rehsack. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Dialects/AnyData.pm new/SQL-Statement-1.414/lib/SQL/Dialects/AnyData.pm --- old/SQL-Statement-1.412/lib/SQL/Dialects/AnyData.pm 2017-04-06 14:12:09.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Dialects/AnyData.pm 2020-10-21 14:18:10.000000000 +0200 @@ -3,7 +3,7 @@ ######################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -15,7 +15,7 @@ use warnings FATAL => "all"; use vars qw($VERSION); -$VERSION = '1.412'; +$VERSION = '1.414'; use SQL::Dialects::Role; @@ -148,7 +148,7 @@ This module is copyright (c) 2001,2005 by Jeff Zucker and - copyright (c) 2007-2017 by Jens Rehsack. + copyright (c) 2007-2020 by Jens Rehsack. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Dialects/CSV.pm new/SQL-Statement-1.414/lib/SQL/Dialects/CSV.pm --- old/SQL-Statement-1.412/lib/SQL/Dialects/CSV.pm 2017-04-06 14:12:09.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Dialects/CSV.pm 2020-10-21 14:18:10.000000000 +0200 @@ -3,7 +3,7 @@ ######################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -15,7 +15,7 @@ use warnings FATAL => "all"; use vars qw($VERSION); -$VERSION = '1.412'; +$VERSION = '1.414'; use SQL::Dialects::Role; @@ -139,7 +139,7 @@ This module is copyright (c) 2001,2005 by Jeff Zucker and - copyright (c) 2007-2017 by Jens Rehsack. + copyright (c) 2007-2020 by Jens Rehsack. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Dialects/Role.pm new/SQL-Statement-1.414/lib/SQL/Dialects/Role.pm --- old/SQL-Statement-1.412/lib/SQL/Dialects/Role.pm 2017-04-06 14:12:09.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Dialects/Role.pm 2020-10-21 14:18:10.000000000 +0200 @@ -3,7 +3,7 @@ ######################################################################### # # This module is copyright (c), 2009 by Michael G. Schwern -# This module is copyright (c), 2009-2017 by Jens Rehsack. +# This module is copyright (c), 2009-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -16,7 +16,7 @@ use base qw(Exporter); our @EXPORT = qw(get_config_as_hash); -our $VERSION = '1.412'; +our $VERSION = '1.414'; sub get_config_as_hash { @@ -112,7 +112,7 @@ This module is copyright (c), 2009 by Michael G. Schwern - copyright (c), 2009-2017 by Jens Rehsack. + copyright (c), 2009-2020 by Jens Rehsack. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Eval.pm new/SQL-Statement-1.414/lib/SQL/Eval.pm --- old/SQL-Statement-1.412/lib/SQL/Eval.pm 2017-04-06 14:12:08.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Eval.pm 2020-10-21 14:18:08.000000000 +0200 @@ -3,7 +3,7 @@ ######################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -16,7 +16,7 @@ use warnings FATAL => "all"; use vars qw($VERSION); -$VERSION = '1.412'; +$VERSION = '1.414'; use Carp qw(croak); @@ -278,7 +278,7 @@ =item _gen_access_fastpath Return a subroutine reference for fast accessing columns for read-only -access. When the instantiated object doesn't provide own methods for +access. When the instantiated object does not provide own methods for C<column> and C<column_num> a subroutine reference is returned which directly access the internal data structures. For all other cases a subroutine directly calling C<< $self->column($_[0]) >> is returned. @@ -512,7 +512,7 @@ =head1 MULTITHREADING All methods are working with instance-local data only, thus the module -is reentrant and thread safe, if you either don't share handles between +is reentrant and thread safe, if you either do not share handles between threads or grant serialized use. =head1 BUGS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Parser.pm new/SQL-Statement-1.414/lib/SQL/Parser.pm --- old/SQL-Statement-1.412/lib/SQL/Parser.pm 2017-04-06 14:12:09.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Parser.pm 2020-10-21 14:18:09.000000000 +0200 @@ -3,7 +3,7 @@ ###################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -20,9 +20,9 @@ use Carp qw(carp croak); use Params::Util qw(_ARRAY0 _ARRAY _HASH); use Scalar::Util qw(looks_like_number); -use Text::Balanced qw(extract_bracketed); +use Text::Balanced qw(extract_bracketed extract_multiple); -$VERSION = '1.412'; +$VERSION = '1.414'; BEGIN { @@ -1181,7 +1181,10 @@ sub SET_CLAUSE_LIST { my ( $self, $set_string ) = @_; - my @sets = split( /,/, $set_string ); + my @sets = extract_multiple($set_string, [ + sub { my ($m, $r, $p) = extract_bracketed($_[0], "()", qr/[^,(]*/); (($p||'').($m||''), $r, ''); }, + qr/([^,(]+)/, + ], undef, 1); my ( @cols, @vals ); for my $set (@sets) { @@ -1878,7 +1881,10 @@ sub LITERAL_LIST { my ( $self, $str ) = @_; - my @tokens = split /,/, $str; + my @tokens = extract_multiple($str, [ + sub { my ($m, $r, $p) = extract_bracketed($_[0], "()", qr/[^,(]*/); (($p||'').($m||''), $r, ''); }, + qr/([^,(]+)/, + ], undef, 1); my @values; for my $tok (@tokens) { @@ -3435,7 +3441,7 @@ This module is copyright (c) 2001,2005 by Jeff Zucker and - copyright (c) 2007-2017 by Jens Rehsack. + copyright (c) 2007-2020 by Jens Rehsack. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Embed.pod new/SQL-Statement-1.414/lib/SQL/Statement/Embed.pod --- old/SQL-Statement-1.412/lib/SQL/Statement/Embed.pod 2014-12-02 09:33:35.000000000 +0100 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Embed.pod 2020-09-25 14:26:18.000000000 +0200 @@ -314,7 +314,7 @@ =head1 AUTHOR & COPYRIGHT Copyright (c) 2005, Jeff Zucker <jzuckerATcpan.org>, all rights reserved. - Copyright (c) 2010, Jens Rehsack <rehsackATcpan.org>, all rights reserved. + Copyright (c) 2010-2020, Jens Rehsack <rehsackATcpan.org>, all rights reserved. This document may be freely modified and distributed under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Function.pm new/SQL-Statement-1.414/lib/SQL/Statement/Function.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/Function.pm 2017-04-06 14:12:09.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Function.pm 2020-10-21 14:18:09.000000000 +0200 @@ -2,7 +2,7 @@ ###################################################################### # -# This module is copyright (c), 2009-2017 by Jens Rehsack. +# This module is copyright (c), 2009-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -17,7 +17,7 @@ use SQL::Statement::Term (); @ISA = qw(SQL::Statement::Term); -$VERSION = '1.412'; +$VERSION = '1.414'; =pod @@ -27,7 +27,7 @@ =head1 SYNOPSIS - # this class doesn't have a common constructor, because all derived classes + # this class does not have a common constructor, because all derived classes # have their special requirements =head1 DESCRIPTION @@ -287,7 +287,7 @@ =item I<\@params> -Expected to be an array with exact 1 element (more aren't evaluated). +Expected to be an array with exact 1 element (more are not evaluated). =back @@ -381,7 +381,7 @@ =item I<\@params> -Expected to be an array with exact 1 element (more aren't evaluated). +Expected to be an array with exact 1 element (more are not evaluated). =back @@ -479,7 +479,7 @@ =head1 AUTHOR AND COPYRIGHT -Copyright (c) 2009-2017 by Jens Rehsack: rehsackATcpan.org +Copyright (c) 2009-2020 by Jens Rehsack: rehsackATcpan.org All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Functions.pm new/SQL-Statement-1.414/lib/SQL/Statement/Functions.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/Functions.pm 2017-04-06 14:12:10.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Functions.pm 2020-10-21 14:18:09.000000000 +0200 @@ -4,7 +4,7 @@ # # This module is copyright (c), 2001,2005 by Jeff Zucker. # This module is copyright (c), 2011,2012 by Brendan Byrd. -# This module is copyright (c), 2009-2017 by Jens Rehsack. +# This module is copyright (c), 2009-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -235,7 +235,7 @@ =cut use vars qw($VERSION); -$VERSION = '1.412'; +$VERSION = '1.414'; =pod @@ -1297,7 +1297,7 @@ =head1 AUTHOR & COPYRIGHT Copyright (c) 2005 by Jeff Zucker: jzuckerATcpan.org -Copyright (c) 2009-2017 by Jens Rehsack: rehsackATcpan.org +Copyright (c) 2009-2020 by Jens Rehsack: rehsackATcpan.org All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/GetInfo.pm new/SQL-Statement-1.414/lib/SQL/Statement/GetInfo.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/GetInfo.pm 2017-04-06 14:12:10.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/GetInfo.pm 2020-10-21 14:18:09.000000000 +0200 @@ -3,7 +3,7 @@ ###################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -15,7 +15,7 @@ use warnings FATAL => "all"; use vars qw($VERSION %info); -$VERSION = '1.412'; +$VERSION = '1.414'; use SQL::Statement(); @@ -580,7 +580,7 @@ This module is copyright (c) 2001,2005 by Jeff Zucker and - copyright (c) 2007-2017 by Jens Rehsack. + copyright (c) 2007-2020 by Jens Rehsack. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Operation.pm new/SQL-Statement-1.414/lib/SQL/Statement/Operation.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/Operation.pm 2017-04-06 14:12:10.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Operation.pm 2020-10-21 14:18:10.000000000 +0200 @@ -2,7 +2,7 @@ ###################################################################### # -# This module is copyright (c), 2009-2017 by Jens Rehsack. +# This module is copyright (c), 2009-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -18,7 +18,7 @@ use SQL::Statement::Term (); -our $VERSION = '1.412'; +our $VERSION = '1.414'; @ISA = qw(SQL::Statement::Term); @@ -1057,7 +1057,7 @@ =head1 AUTHOR AND COPYRIGHT -Copyright (c) 2009,2017 by Jens Rehsack: rehsackATcpan.org +Copyright (c) 2009-2020 by Jens Rehsack: rehsackATcpan.org All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Placeholder.pm new/SQL-Statement-1.414/lib/SQL/Statement/Placeholder.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/Placeholder.pm 2017-04-06 14:12:10.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Placeholder.pm 2020-10-21 14:18:09.000000000 +0200 @@ -2,7 +2,7 @@ ###################################################################### # -# This module is copyright (c), 2009-2017 by Jens Rehsack. +# This module is copyright (c), 2009-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -18,7 +18,7 @@ use SQL::Statement::Term (); -our $VERSION = '1.412'; +our $VERSION = '1.414'; @ISA = qw(SQL::Statement::Term); @@ -85,7 +85,7 @@ =head1 AUTHOR AND COPYRIGHT -Copyright (c) 2009-2017 by Jens Rehsack: rehsackATcpan.org +Copyright (c) 2009-2020 by Jens Rehsack: rehsackATcpan.org All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/RAM.pm new/SQL-Statement-1.414/lib/SQL/Statement/RAM.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/RAM.pm 2017-04-06 14:12:10.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/RAM.pm 2020-10-21 14:18:09.000000000 +0200 @@ -5,7 +5,7 @@ ###################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -17,7 +17,7 @@ use warnings FATAL => "all"; use vars qw($VERSION); -$VERSION = '1.412'; +$VERSION = '1.414'; #################################### package SQL::Statement::RAM::Table; @@ -292,7 +292,7 @@ =head1 AUTHOR AND COPYRIGHT Copyright (c) 2001,2005 by Jeff Zucker: jzuckerATcpan.org -Copyright (c) 2007-2017 by Jens Rehsack: rehsackATcpan.org +Copyright (c) 2007-2020 by Jens Rehsack: rehsackATcpan.org All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Roadmap.pod new/SQL-Statement-1.414/lib/SQL/Statement/Roadmap.pod --- old/SQL-Statement-1.412/lib/SQL/Statement/Roadmap.pod 2014-12-02 09:33:35.000000000 +0100 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Roadmap.pod 2020-09-25 14:26:18.000000000 +0200 @@ -22,7 +22,7 @@ =head3 CREATE and DROP of FUNCTION, KEYWORD, OPERATOR, TYPE SQL::Statement is missing some functions, types, operators etc. It's -supported to add missing functionality - but the implementation wasn't +supported to add missing functionality - but the implementation was not picked up during the modernizing of column evaluation. See RT#52397 for some more information. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Structure.pod new/SQL-Statement-1.414/lib/SQL/Statement/Structure.pod --- old/SQL-Statement-1.412/lib/SQL/Statement/Structure.pod 2014-12-02 09:33:35.000000000 +0100 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Structure.pod 2020-09-25 14:26:18.000000000 +0200 @@ -305,7 +305,7 @@ =head2 execute When called from a DBD or other subclass of SQL::Statement, the execute() -method will be executed against whatever datasource (persistent storage) is +method will be executed against whatever data-source (persistent storage) is supplied by the DBD or the subclass (e.g. CSV files for L<DBD::CSV>, or BerkeleyDB for L<DBD::DBM>). If you are using L<SQL::Statement> directly rather than as a subclass, you can call the execute() method and the @@ -361,7 +361,7 @@ =head1 AUTHOR & COPYRIGHT Copyright (c) 2005, Jeff Zucker <jzuckerATcpan.org>, all rights reserved. -Copyright (c) 2009, Jens Rehsack <rehsackATcpan.org>, all rights reserved. +Copyright (c) 2009-2020, Jens Rehsack <rehsackATcpan.org>, all rights reserved. This document may be freely modified and distributed under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Syntax.pod new/SQL-Statement-1.414/lib/SQL/Statement/Syntax.pod --- old/SQL-Statement-1.412/lib/SQL/Statement/Syntax.pod 2014-12-02 09:33:35.000000000 +0100 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Syntax.pod 2020-09-25 14:26:18.000000000 +0200 @@ -283,7 +283,7 @@ case SENSITIVE so column "foo", "fOo", "FOO" each refer to different columns. A delimited identifier is *never* equal to a regular identifier (so "foo" and -foo are two different columns). But don't do that :-). +foo are two different columns). But do not do that :-). Remember thought that, in L<DBD::CSV> if table names are used directly as file names, the case sensitivity depends on the OS e.g. on Windows files named foo, @@ -373,7 +373,7 @@ my $sth = $dbh->prepare(" SELECT * FROM RUN( 'query.sql' ) "); If the file contains a statement with placeholders, the values for the -placehoders can be passed in the call to $sth->execute() as normal. If the +placeholders can be passed in the call to $sth->execute() as normal. If the query.sql file contains "SELECT id,name FROM x WHERE id=?", then these two are the same: @@ -402,7 +402,7 @@ Surrounded by either single quotes; some characters need to be escaped with a backslash, in particular the backslash itself (\\), -the NUL byte (\0), Line feeds (\n), Carriage return (\r), and the +the NULL byte (\0), Line feeds (\n), Carriage return (\r), and the quotes (\'). B<Note:> Quoting "Strings" using double quotes are recognized as @@ -461,7 +461,7 @@ parsing the statement. In the reverse situation, suppose you want to parse some SQL that defines a -column as type BIG_BLOB. Since 'BIG_BLOB' isn't a recognized ANSI data type, +column as type BIG_BLOB. Since 'BIG_BLOB' is not a recognized ANSI data type, an error will be produced by default. To make the parser treat it as a valid data type, you do this: @@ -532,7 +532,7 @@ =head1 AUTHOR & COPYRIGHT Copyright (c) 2005, Jeff Zucker <jzuckerATcpan.org>, all rights reserved. -Copyright (c) 2009, Jens Rehsack <rehsackATcpan.org>, all rights reserved. +Copyright (c) 2009-2020, Jens Rehsack <rehsackATcpan.org>, all rights reserved. This document may be freely modified and distributed under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Term.pm new/SQL-Statement-1.414/lib/SQL/Statement/Term.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/Term.pm 2017-04-06 14:12:10.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Term.pm 2020-10-21 14:18:09.000000000 +0200 @@ -2,7 +2,7 @@ ###################################################################### # -# This module is copyright (c), 2009-2017 by Jens Rehsack. +# This module is copyright (c), 2009-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -13,7 +13,7 @@ use strict; use warnings FATAL => "all"; -our $VERSION = '1.412'; +our $VERSION = '1.414'; use Scalar::Util qw(weaken); use Carp (); @@ -236,7 +236,7 @@ =head1 AUTHOR AND COPYRIGHT -Copyright (c) 2009-2017 by Jens Rehsack: rehsackATcpan.org +Copyright (c) 2009-2020 by Jens Rehsack: rehsackATcpan.org All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/TermFactory.pm new/SQL-Statement-1.414/lib/SQL/Statement/TermFactory.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/TermFactory.pm 2017-04-06 14:12:10.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/TermFactory.pm 2020-10-21 14:18:10.000000000 +0200 @@ -2,7 +2,7 @@ ###################################################################### # -# This module is copyright (c), 2009-2017 by Jens Rehsack. +# This module is copyright (c), 2009-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -22,7 +22,7 @@ use Params::Util qw(_HASH _ARRAY0 _INSTANCE); use Scalar::Util qw(blessed weaken); -our $VERSION = '1.412'; +our $VERSION = '1.414'; my %oplist = ( '=' => 'Equal', @@ -218,7 +218,7 @@ =head1 AUTHOR AND COPYRIGHT Copyright (c) 2001,2005 by Jeff Zucker: jzuckerATcpan.org -Copyright (c) 2009-2017 by Jens Rehsack: rehsackATcpan.org +Copyright (c) 2009-2020 by Jens Rehsack: rehsackATcpan.org All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement/Util.pm new/SQL-Statement-1.414/lib/SQL/Statement/Util.pm --- old/SQL-Statement-1.412/lib/SQL/Statement/Util.pm 2017-04-06 14:12:10.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement/Util.pm 2020-10-21 14:18:09.000000000 +0200 @@ -3,7 +3,7 @@ ###################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -15,7 +15,7 @@ use warnings FATAL => "all"; use vars qw($VERSION); -$VERSION = '1.412'; +$VERSION = '1.414'; sub type { @@ -168,7 +168,7 @@ This module is copyright (c) 2001,2005 by Jeff Zucker and - copyright (c) 2007-2017 by Jens Rehsack. + copyright (c) 2007-2020 by Jens Rehsack. All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/lib/SQL/Statement.pm new/SQL-Statement-1.414/lib/SQL/Statement.pm --- old/SQL-Statement-1.412/lib/SQL/Statement.pm 2017-04-06 14:12:09.000000000 +0200 +++ new/SQL-Statement-1.414/lib/SQL/Statement.pm 2020-10-21 14:18:09.000000000 +0200 @@ -3,7 +3,7 @@ ######################################################################### # # This module is copyright (c), 2001,2005 by Jeff Zucker. -# This module is copyright (c), 2007-2017 by Jens Rehsack. +# This module is copyright (c), 2007-2020 by Jens Rehsack. # All rights reserved. # # It may be freely distributed under the same terms as Perl itself. @@ -32,7 +32,7 @@ #use locale; -$VERSION = '1.412'; +$VERSION = '1.414'; sub new { @@ -1537,7 +1537,7 @@ } # the following should be probably conditioned on an option, - # but I don't know which --BW + # but I do not know which --BW elsif ( 'USING' eq $join->{clause} ) { my @keys = @{ $join->{keycols} }; @@ -2750,12 +2750,14 @@ Rehsack is the maintainer. Copyright (c) 2001,2005 by Jeff Zucker: jzuckerATcpan.org -Copyright (c) 2007-2017 by Jens Rehsack: rehsackATcpan.org +Copyright (c) 2007-2020 by Jens Rehsack: rehsackATcpan.org Portions Copyright (C) 1998 by Jochen Wiedmann: jwiedATcpan.org All rights reserved. +=head1 LICENSE + You may distribute this module under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SQL-Statement-1.412/t/16parse.t new/SQL-Statement-1.414/t/16parse.t --- old/SQL-Statement-1.412/t/16parse.t 2017-03-30 10:02:25.000000000 +0200 +++ new/SQL-Statement-1.414/t/16parse.t 2020-09-25 14:26:18.000000000 +0200 @@ -11,6 +11,8 @@ my($stmt,$cache)=(undef,{}); my $p = SQL::Parser->new(); +$p->{RaiseError}=1; + my $sql1 = 'SELECT * FROM x JOIN y ON x.a = y.b AND x.c = y.d'; ok(cmp_parse($sql1,$sql1), 'JOIN with AND'); @@ -26,6 +28,12 @@ my $sql5 = 'SELECT * FROM x JOIN y ON (x.a = y.b AND x.a > 12 AND x.a < 20) OR (x.c = y.d OR x.e = y.f)'; ok(cmp_parse($sql5,$sql5), 'JOIN with lt"<" and gt">"'); +my $sql6 = "INSERT INTO asdf (col1, col2) VALUES ('asdf', CONCAT('x', 'y', 'z'))"; +ok(cmp_parse($sql6,$sql6), 'FUNCTION in VALUES'); + +my $sql7 = "UPDATE asdf SET (col1 = 'asdf', col2 = CONCAT('x', 'y', 'z'))"; +ok(cmp_parse($sql7,$sql7), 'FUNCTION in SET CLAUSE'); + done_testing(); sub cmp_parse {
