Hello community, here is the log from the commit of package perl-DBIx-Class for openSUSE:Factory checked in at 2018-02-07 18:43:25 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-DBIx-Class (Old) and /work/SRC/openSUSE:Factory/.perl-DBIx-Class.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-DBIx-Class" Wed Feb 7 18:43:25 2018 rev:14 rq:573772 version:0.082841 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-DBIx-Class/perl-DBIx-Class.changes 2017-10-08 20:15:55.654131410 +0200 +++ /work/SRC/openSUSE:Factory/.perl-DBIx-Class.new/perl-DBIx-Class.changes 2018-02-07 18:43:28.298400395 +0100 @@ -1,0 +2,23 @@ +Wed Feb 7 15:19:50 UTC 2018 - co...@suse.com + +- updated to 0.082841 + see /usr/share/doc/packages/perl-DBIx-Class/Changes + + + 0.082841 2018-01-29 08:10 (UTC) + * Test-suite fixup changes only - no reason to upgrade, wait for 0.082850 + + * Misc + - Unblock DBD::SQLite (RT#118395) + - Fix missing ORDER BY leading to failures of t/prefetch/grouped.t + under upcoming libsqlite (RT#117271) + - Temporarily disable a non-critical portion of test failing on + upcoming libsqlite, proper fix coming in 0.082850 (RT#119845) + - Add test workaround for ( largely irrelevant ) RT#120129 + - Add temporary test-workaround for a devrel of DBD::SQLite + RT#124227 / https://twitter.com/dbix_class/status/957271153751527424 + - Add workaround for one of the most damaging "improvements" made + during the modern-perl-era (RT#120827) + - Fix malformed README file encoding (RT#122028) + +------------------------------------------------------------------- Old: ---- DBIx-Class-0.082840.tar.gz New: ---- DBIx-Class-0.082841.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBIx-Class.spec ++++++ --- /var/tmp/diff_new_pack.r9yVdC/_old 2018-02-07 18:43:29.026366311 +0100 +++ /var/tmp/diff_new_pack.r9yVdC/_new 2018-02-07 18:43:29.030366124 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-DBIx-Class # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-DBIx-Class -Version: 0.082840 +Version: 0.082841 Release: 0 %define cpan_name DBIx-Class Summary: Extensible and flexible object <-> relational mapper ++++++ DBIx-Class-0.082840.tar.gz -> DBIx-Class-0.082841.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/AUTHORS new/DBIx-Class-0.082841/AUTHORS --- old/DBIx-Class-0.082840/AUTHORS 2016-06-20 09:02:36.000000000 +0200 +++ new/DBIx-Class-0.082841/AUTHORS 2018-01-29 09:17:32.000000000 +0100 @@ -166,7 +166,7 @@ rdj: Ryan D Johnson <r...@innerfence.com> Relequestual: Ben Hutton <relequest...@gmail.com> renormalist: Steffen Schwigon <schwi...@cpan.org> -ribasushi: Peter Rabbitson <ribasu...@cpan.org> +ribasushi: Peter Rabbitson <ribasu...@leporine.io> rjbs: Ricardo Signes <r...@cpan.org> Robert Krimen <rkri...@cpan.org> Robert Olson <b...@rdolson.org> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/Changes new/DBIx-Class-0.082841/Changes --- old/DBIx-Class-0.082840/Changes 2016-06-20 08:58:05.000000000 +0200 +++ new/DBIx-Class-0.082841/Changes 2018-01-29 09:12:11.000000000 +0100 @@ -1,5 +1,22 @@ Revision history for DBIx::Class + +0.082841 2018-01-29 08:10 (UTC) + * Test-suite fixup changes only - no reason to upgrade, wait for 0.082850 + + * Misc + - Unblock DBD::SQLite (RT#118395) + - Fix missing ORDER BY leading to failures of t/prefetch/grouped.t + under upcoming libsqlite (RT#117271) + - Temporarily disable a non-critical portion of test failing on + upcoming libsqlite, proper fix coming in 0.082850 (RT#119845) + - Add test workaround for ( largely irrelevant ) RT#120129 + - Add temporary test-workaround for a devrel of DBD::SQLite + RT#124227 / https://twitter.com/dbix_class/status/957271153751527424 + - Add workaround for one of the most damaging "improvements" made + during the modern-perl-era (RT#120827) + - Fix malformed README file encoding (RT#122028) + 0.082840 2016-06-20 07:02 (UTC) * New Features - When using non-scalars (e.g. arrays) as literal bind values it is no diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/LICENSE new/DBIx-Class-0.082841/LICENSE --- old/DBIx-Class-0.082840/LICENSE 2016-06-20 09:02:36.000000000 +0200 +++ new/DBIx-Class-0.082841/LICENSE 2018-01-29 09:17:32.000000000 +0100 @@ -1,4 +1,4 @@ -DBIx::Class is Copyright (c) 2005-2016 by mst, castaway, ribasushi, and others. +DBIx::Class is Copyright (c) 2005-2018 by mst, castaway, ribasushi, and others. See AUTHORS and LICENSE included with this distribution. All rights reserved. This is free software; you can redistribute it and/or modify it under the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/META.yml new/DBIx-Class-0.082841/META.yml --- old/DBIx-Class-0.082840/META.yml 2016-06-20 08:58:44.000000000 +0200 +++ new/DBIx-Class-0.082841/META.yml 2018-01-29 09:08:17.000000000 +0100 @@ -3,7 +3,7 @@ author: - 'mst: Matt S Trout <m...@shadowcat.co.uk> (project founder - original idea, architecture and implementation)' - 'castaway: Jess Robinson <casta...@desert-island.me.uk> (lions share of the reference documentation and manuals)' - - 'ribasushi: Peter Rabbitson <ribasu...@cpan.org> (present day maintenance and controlled evolution)' + - 'ribasushi: Peter Rabbitson <ribasu...@leporine.io> (present day maintenance and controlled evolution)' build_requires: DBD::SQLite: 1.29 File::Temp: 0.22 @@ -16,7 +16,7 @@ ExtUtils::MakeMaker: 6.59 distribution_type: module dynamic_config: 0 -generated_by: 'Module::Install version 1.16' +generated_by: 'Module::Install version 1.19' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -65,10 +65,9 @@ IRC: irc://irc.perl.org/#dbix-class MailingList: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=DBIx-Class - homepage: http://www.dbix-class.org/ license: http://dev.perl.org/licenses/ - repository: https://github.com/dbsrgits/DBIx-Class -version: 0.082840 + repository: https://github.com/Perl5/DBIx-Class +version: 0.082841 x_authority: cpan:RIBASUSHI x_contributors: - 'abraxxa: Alexander Hartmaier <abra...@cpan.org>' @@ -228,7 +227,7 @@ - 'rdj: Ryan D Johnson <r...@innerfence.com>' - 'Relequestual: Ben Hutton <relequest...@gmail.com>' - 'renormalist: Steffen Schwigon <schwi...@cpan.org>' - - 'ribasushi: Peter Rabbitson <ribasu...@cpan.org>' + - 'ribasushi: Peter Rabbitson <ribasu...@leporine.io>' - 'rjbs: Ricardo Signes <r...@cpan.org>' - 'Robert Krimen <rkri...@cpan.org>' - 'Robert Olson <b...@rdolson.org>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/Makefile.PL new/DBIx-Class-0.082841/Makefile.PL --- old/DBIx-Class-0.082840/Makefile.PL 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/Makefile.PL 2018-01-29 08:31:50.000000000 +0100 @@ -2,6 +2,27 @@ use warnings; use 5.008001; + + +# Work around one of the most damaging "improvements" made +# during the modern-perl-era +BEGIN { push @INC, '.' unless grep { $_ eq '.' } @INC } + + +# For the time being simply generate UNKNOWN cperl test reports +# I would *LOVE* to be able to support it seamlessly, but with +# rurban adamant that CPAN ought to be gentrified... pity. +# https://irclog.perlgeek.de/perl11/2016-06-08#i_12624929 ( 06:57 ~ 09:34 ) +BEGIN { + die <<'EOE' if $^V =~ /c/; + +Currently DBIx::Class is not attempting to be compatible with CPerl +For more info: https://irclog.perlgeek.de/perl11/2016-06-08#i_12624929 + +EOE +} + + use inc::Module::Install 1.06; BEGIN { makemaker_args( NORECURS => 1 ) } # needs to happen early for old EUMM diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/README new/DBIx-Class-0.082841/README --- old/DBIx-Class-0.082840/README 2016-06-20 09:02:00.000000000 +0200 +++ new/DBIx-Class-0.082841/README 2018-01-29 09:17:08.000000000 +0100 @@ -1,4 +1,4 @@ -DBIx::Class is Copyright (c) 2005-2016 by mst, castaway, ribasushi, and others. +DBIx::Class is Copyright (c) 2005-2018 by mst, castaway, ribasushi, and others. See AUTHORS and LICENSE included with this distribution. All rights reserved. NAME @@ -173,26 +173,15 @@ Contributions are always welcome, in all usable forms (we especially welcome documentation improvements). The delivery methods include git- or unified-diff formatted patches, GitHub pull requests, or plain bug - reports either via RT or the Mailing list. Contributors are generally - granted access to the official repository after their first several - patches pass successful review. Don't hesitate to contact either of the - "CAT HERDERS" with any further questions you may have. + reports either via RT or the Mailing list. Do not hesitate to get in + touch with any further questions you may have. This project is maintained in a git repository. The code and related tools are accessible at the following locations: - * Official repo: <git://git.shadowcat.co.uk/dbsrgits/DBIx-Class.git> + * Current git repository: <https://github.com/Perl5/DBIx-Class> - * Official gitweb: - <http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits/DBIx-Class. - git> - - * GitHub mirror: <https://github.com/dbsrgits/DBIx-Class> - - * Authorized committers: - <ssh://dbsrg...@git.shadowcat.co.uk/DBIx-Class.git> - - * Travis-CI log: <https://travis-ci.org/dbsrgits/dbix-class/builds> + * Travis-CI log: <https://travis-ci.org/Perl5/DBIx-Class/branches> AUTHORS Even though a large portion of the source *appears* to be written by @@ -204,7 +193,7 @@ questions and suggestions have been shown to catalyze monumental improvements in consistency, accuracy and performance. - List of the awesome contributors who made DBIC v0.082840 possible + List of the awesome contributors who made DBIC v0.082841 possible abraxxa: Alexander Hartmaier <abra...@cpan.org> @@ -238,7 +227,7 @@ ash: Ash Berlin <a...@cpan.org> - bert: Norbert Csongr�di <b...@cpan.org> + bert: Norbert Csongrádi <b...@cpan.org> bfwg: Colin Newell <colin.new...@gmail.com> @@ -356,9 +345,9 @@ idn: Ian Norton <i.nor...@shadowcat.co.uk> - ilmari: Dagfinn Ilmari Manns�ker <ilm...@ilmari.org> + ilmari: Dagfinn Ilmari Mannsåker <ilm...@ilmari.org> - ingy: Ingy d�t Net <i...@ingy.net> + ingy: Ingy döt Net <i...@ingy.net> initself: Mike Baas <m...@initselftech.com> @@ -478,7 +467,7 @@ ovid: Curtis "Ovid" Poe <o...@cpan.org> - oyse: �ystein Torget <oystein.tor...@dnv.com> + oyse: Øystein Torget <oystein.tor...@dnv.com> paulm: Paul Makepeace <paulm+pa...@paulm.com> @@ -486,9 +475,9 @@ perigrin: Chris Prather <ch...@prather.org> - Peter Sikl�si <ei...@einon.hu> + Peter Siklósi <ei...@einon.hu> - Peter Valdemar M�rch <pe...@morch.com> + Peter Valdemar Mørch <pe...@morch.com> peter: Peter Collingbourne <pe...@pcc.me.uk> @@ -520,7 +509,7 @@ renormalist: Steffen Schwigon <schwi...@cpan.org> - ribasushi: Peter Rabbitson <ribasu...@cpan.org> + ribasushi: Peter Rabbitson <ribasu...@leporine.io> rjbs: Ricardo Signes <r...@cpan.org> @@ -626,18 +615,6 @@ the root of this distribution (or repository). The canonical source of per-line authorship is the git repository history itself. -CAT HERDERS - The fine folks nudging the project in a particular direction: - - ribasushi: Peter Rabbitson <ribasu...@cpan.org> (present day - maintenance and controlled evolution) - - castaway: Jess Robinson <casta...@desert-island.me.uk> (lions share - of the reference documentation and manuals) - - mst: Matt S Trout <m...@shadowcat.co.uk> (project founder - original - idea, architecture and implementation) - COPYRIGHT AND LICENSE Copyright (c) 2005 by mst, castaway, ribasushi, and other DBIx::Class "AUTHORS" as listed above and in AUTHORS. Binary files old/DBIx-Class-0.082840/examples/Schema/db/example.db and new/DBIx-Class-0.082841/examples/Schema/db/example.db differ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/examples/Schema/insertdb.pl new/DBIx-Class-0.082841/examples/Schema/insertdb.pl --- old/DBIx-Class-0.082840/examples/Schema/insertdb.pl 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/examples/Schema/insertdb.pl 2018-01-29 08:31:50.000000000 +0100 @@ -3,6 +3,7 @@ use strict; use warnings; +use lib '.'; use MyApp::Schema; use Path::Class 'file'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/examples/Schema/testdb.pl new/DBIx-Class-0.082841/examples/Schema/testdb.pl --- old/DBIx-Class-0.082840/examples/Schema/testdb.pl 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/examples/Schema/testdb.pl 2018-01-29 08:31:50.000000000 +0100 @@ -3,6 +3,7 @@ use warnings; use strict; +use lib '.'; use MyApp::Schema; use Path::Class 'file'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/AutoInstall.pm new/DBIx-Class-0.082841/inc/Module/AutoInstall.pm --- old/DBIx-Class-0.082840/inc/Module/AutoInstall.pm 2016-06-20 08:58:44.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/AutoInstall.pm 2018-01-29 09:08:17.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; } # special map on pre-defined feature sets diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/AutoInstall.pm new/DBIx-Class-0.082841/inc/Module/Install/AutoInstall.pm --- old/DBIx-Class-0.082840/inc/Module/Install/AutoInstall.pm 2016-06-20 08:58:44.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/AutoInstall.pm 2018-01-29 09:08:17.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/Base.pm new/DBIx-Class-0.082841/inc/Module/Install/Base.pm --- old/DBIx-Class-0.082840/inc/Module/Install/Base.pm 2016-06-20 08:58:40.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/Base.pm 2018-01-29 09:08:14.000000000 +0100 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/Can.pm new/DBIx-Class-0.082841/inc/Module/Install/Can.pm --- old/DBIx-Class-0.082840/inc/Module/Install/Can.pm 2016-06-20 08:58:44.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/Can.pm 2018-01-29 09:08:17.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -121,6 +121,15 @@ # Can we locate a (the) C compiler sub can_cc { my $self = shift; + + if ($^O eq 'VMS') { + require ExtUtils::CBuilder; + my $builder = ExtUtils::CBuilder->new( + quiet => 1, + ); + return $builder->have_compiler; + } + my @chunks = split(/ /, $Config::Config{cc}) or return; # $Config{cc} may contain args; try to find out the program part @@ -151,4 +160,4 @@ __END__ -#line 236 +#line 245 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/Fetch.pm new/DBIx-Class-0.082841/inc/Module/Install/Fetch.pm --- old/DBIx-Class-0.082840/inc/Module/Install/Fetch.pm 2016-06-20 08:58:44.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/Fetch.pm 2018-01-29 09:08:17.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/Include.pm new/DBIx-Class-0.082841/inc/Module/Install/Include.pm --- old/DBIx-Class-0.082840/inc/Module/Install/Include.pm 2016-06-20 08:58:44.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/Include.pm 2018-01-29 09:08:17.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/Makefile.pm new/DBIx-Class-0.082841/inc/Module/Install/Makefile.pm --- old/DBIx-Class-0.082840/inc/Module/Install/Makefile.pm 2016-06-20 08:58:40.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/Makefile.pm 2018-01-29 09:08:14.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/Metadata.pm new/DBIx-Class-0.082841/inc/Module/Install/Metadata.pm --- old/DBIx-Class-0.082840/inc/Module/Install/Metadata.pm 2016-06-20 08:58:40.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/Metadata.pm 2018-01-29 09:08:14.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/Scripts.pm new/DBIx-Class-0.082841/inc/Module/Install/Scripts.pm --- old/DBIx-Class-0.082840/inc/Module/Install/Scripts.pm 2016-06-20 08:58:40.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/Scripts.pm 2018-01-29 09:08:14.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/Win32.pm new/DBIx-Class-0.082841/inc/Module/Install/Win32.pm --- old/DBIx-Class-0.082840/inc/Module/Install/Win32.pm 2016-06-20 08:58:44.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/Win32.pm 2018-01-29 09:08:17.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install/WriteAll.pm new/DBIx-Class-0.082841/inc/Module/Install/WriteAll.pm --- old/DBIx-Class-0.082840/inc/Module/Install/WriteAll.pm 2016-06-20 08:58:44.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install/WriteAll.pm 2018-01-29 09:08:17.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.19'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/inc/Module/Install.pm new/DBIx-Class-0.082841/inc/Module/Install.pm --- old/DBIx-Class-0.082840/inc/Module/Install.pm 2016-06-20 08:58:40.000000000 +0200 +++ new/DBIx-Class-0.082841/inc/Module/Install.pm 2018-01-29 09:08:14.000000000 +0100 @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.16'; + $VERSION = '1.19'; # Storage for the pseudo-singleton $MAIN = undef; @@ -244,6 +244,8 @@ } return $args{_self} if $args{_self}; + $base_path = VMS::Filespec::unixify($base_path) if $^O eq 'VMS'; + $args{dispatch} ||= 'Admin'; $args{prefix} ||= 'inc'; $args{author} ||= ($^O eq 'VMS' ? '_author' : '.author'); @@ -322,7 +324,7 @@ my ($self, $path) = @_; my @found; - File::Find::find( sub { + File::Find::find( {no_chdir => 1, wanted => sub { my $file = $File::Find::name; return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is; my $subpath = $1; @@ -336,7 +338,7 @@ # correctly. Otherwise, root through the file to locate the case-preserved # version of the package name. if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) { - my $content = Module::Install::_read($subpath . '.pm'); + my $content = Module::Install::_read($File::Find::name); my $in_pod = 0; foreach ( split /\n/, $content ) { $in_pod = 1 if /^=\w/; @@ -351,7 +353,7 @@ } push @found, [ $file, $pkg ]; - }, $path ) if -d $path; + }}, $path ) if -d $path; @found; } @@ -373,8 +375,6 @@ return $call; } -# Done in evals to avoid confusing Perl::MinimumVersion -eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _read { local *FH; open( FH, '<', $_[0] ) or die "open($_[0]): $!"; @@ -383,16 +383,6 @@ close FH or die "close($_[0]): $!"; return $string; } -END_NEW -sub _read { - local *FH; - open( FH, "< $_[0]" ) or die "open($_[0]): $!"; - binmode FH; - my $string = do { local $/; <FH> }; - close FH or die "close($_[0]): $!"; - return $string; -} -END_OLD sub _readperl { my $string = Module::Install::_read($_[0]); @@ -413,8 +403,6 @@ return $string; } -# Done in evals to avoid confusing Perl::MinimumVersion -eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _write { local *FH; open( FH, '>', $_[0] ) or die "open($_[0]): $!"; @@ -424,17 +412,6 @@ } close FH or die "close($_[0]): $!"; } -END_NEW -sub _write { - local *FH; - open( FH, "> $_[0]" ) or die "open($_[0]): $!"; - binmode FH; - foreach ( 1 .. $#_ ) { - print FH $_[$_] or die "print($_[0]): $!"; - } - close FH or die "close($_[0]): $!"; -} -END_OLD # _version is for processing module versions (eg, 1.03_05) not # Perl versions (eg, 5.8.1). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/lib/DBIx/Class/Manual/Features.pod new/DBIx-Class-0.082841/lib/DBIx/Class/Manual/Features.pod --- old/DBIx-Class-0.082840/lib/DBIx/Class/Manual/Features.pod 2016-06-17 12:23:40.000000000 +0200 +++ new/DBIx-Class-0.082841/lib/DBIx/Class/Manual/Features.pod 2018-01-29 08:31:50.000000000 +0100 @@ -15,7 +15,7 @@ Currently (June 9, 2010) 6 active branches (committed to in the last two weeks) in git. Last release (0.08122) had 14 new features, and 16 bug fixes. Of course that -L<ebbs and flows|http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits/DBIx-Class.git;a=blob;f=Changes>.) +L<ebbs and flows|https://metacpan.org/changes/distribution/DBIx-Class>.) =head2 Responsive Community diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/lib/DBIx/Class/Optional/Dependencies.pod new/DBIx-Class-0.082841/lib/DBIx/Class/Optional/Dependencies.pod --- old/DBIx-Class-0.082840/lib/DBIx/Class/Optional/Dependencies.pod 2016-06-20 09:01:58.000000000 +0200 +++ new/DBIx-Class-0.082841/lib/DBIx/Class/Optional/Dependencies.pod 2018-01-29 09:17:06.000000000 +0100 @@ -18,7 +18,7 @@ ... - configure_requires 'DBIx::Class' => '0.082840'; + configure_requires 'DBIx::Class' => '0.082841'; require DBIx::Class::Optional::Dependencies; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/lib/DBIx/Class/ResultSet.pm new/DBIx-Class-0.082841/lib/DBIx/Class/ResultSet.pm --- old/DBIx-Class-0.082840/lib/DBIx/Class/ResultSet.pm 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/lib/DBIx/Class/ResultSet.pm 2018-01-29 08:31:50.000000000 +0100 @@ -20,6 +20,9 @@ *__HM_DEDUP = sub () { 0 }; } +# FIXME - get rid of this +use Hash::Merge (); + use namespace::clean; use overload @@ -3888,7 +3891,6 @@ sub _merge_attr { $hm ||= do { - require Hash::Merge; my $hm = Hash::Merge->new; $hm->specify_behavior({ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm new/DBIx-Class-0.082841/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm --- old/DBIx-Class-0.082840/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm 2018-01-29 08:31:50.000000000 +0100 @@ -399,7 +399,7 @@ } ### Note originally by Ron "Quinn" Straight <quinnfaz...@gmail.org> -### http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits/DBIx-Class.git;a=commitdiff;h=5db2758de644d53e07cd3e05f0e9037bf40116fc +### https://github.com/Perl5/DBIx-Class/commit/5db2758de6 # # Handle LOB types in Oracle. Under a certain size (4k?), you can get away # with the driver assuming your input is the deprecated LONG type if you diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/lib/DBIx/Class.pm new/DBIx-Class-0.082841/lib/DBIx/Class.pm --- old/DBIx-Class-0.082840/lib/DBIx/Class.pm 2016-06-20 08:58:12.000000000 +0200 +++ new/DBIx-Class-0.082841/lib/DBIx/Class.pm 2018-01-29 09:06:08.000000000 +0100 @@ -11,7 +11,7 @@ # $VERSION declaration must stay up here, ahead of any other package # declarations, as to not confuse various modules attempting to determine # this ones version, whether that be s.c.o. or Module::Metadata, etc -$VERSION = '0.082840'; +$VERSION = '0.082841'; $VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases @@ -74,6 +74,20 @@ __END__ +# This is the only file where an explicit =encoding is needed, +# as the distbuild-time injected author list is utf8 encoded +# Without this pod2text output is less than ideal +# +# A bit regarding selection/compatiblity: +# Before 5.8.7 UTF-8 was == utf8, both behaving like the (lax) utf8 we know today +# Then https://www.nntp.perl.org/group/perl.unicode/2004/12/msg2705.html happened +# Encode way way before 5.8.0 supported UTF-8: https://metacpan.org/source/DANKOGAI/Encode-1.00/lib/Encode/Supported.pod#L44 +# so it is safe for the oldest toolchains. +# Additionally we inject all the utf8 programattically and test its well-formedness +# so all is well +# +=encoding UTF-8 + =head1 NAME DBIx::Class - Extensible and flexible object <-> relational mapper. @@ -261,11 +275,9 @@ Contributions are always welcome, in all usable forms (we especially welcome documentation improvements). The delivery methods include git- or unified-diff formatted patches, GitHub pull requests, or plain bug -reports either via RT or the Mailing list. Contributors are generally -granted access to the official repository after their first several -patches pass successful review. Don't hesitate to -L<contact|/GETTING HELP/SUPPORT> either of the L</CAT HERDERS> with -any further questions you may have. +reports either via RT or the Mailing list. Do not hesitate to +L<get in touch|/GETTING HELP/SUPPORT> with any further questions you may +have. =for comment FIXME: Getty, frew and jnap need to get off their asses and finish the contrib section so we can link it here ;) @@ -275,15 +287,9 @@ =over -=item * Official repo: L<git://git.shadowcat.co.uk/dbsrgits/DBIx-Class.git> - -=item * Official gitweb: L<http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits/DBIx-Class.git> - -=item * GitHub mirror: L<https://github.com/dbsrgits/DBIx-Class> - -=item * Authorized committers: L<ssh://dbsrg...@git.shadowcat.co.uk/DBIx-Class.git> +=item * Current git repository: L<https://github.com/Perl5/DBIx-Class> -=item * Travis-CI log: L<https://travis-ci.org/dbsrgits/dbix-class/builds> +=item * Travis-CI log: L<https://travis-ci.org/Perl5/DBIx-Class/branches> =back @@ -304,23 +310,6 @@ per-line authorship is the L<git repository|/HOW TO CONTRIBUTE> history itself. -=head1 CAT HERDERS - -The fine folks nudging the project in a particular direction: - -=over - -B<ribasushi>: Peter Rabbitson <ribasu...@cpan.org> -(present day maintenance and controlled evolution) - -B<castaway>: Jess Robinson <casta...@desert-island.me.uk> -(lions share of the reference documentation and manuals) - -B<mst>: Matt S Trout <m...@shadowcat.co.uk> (project founder - -original idea, architecture and implementation) - -=back - =head1 COPYRIGHT AND LICENSE Copyright (c) 2005 by mst, castaway, ribasushi, and other DBIx::Class diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/lib/DBIx/Class.pod new/DBIx-Class-0.082841/lib/DBIx/Class.pod --- old/DBIx-Class-0.082840/lib/DBIx/Class.pod 2016-06-20 09:02:00.000000000 +0200 +++ new/DBIx-Class-0.082841/lib/DBIx/Class.pod 2018-01-29 09:17:08.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding UTF-8 + =head1 NAME DBIx::Class - Extensible and flexible object <-> relational mapper. @@ -186,11 +188,9 @@ Contributions are always welcome, in all usable forms (we especially welcome documentation improvements). The delivery methods include git- or unified-diff formatted patches, GitHub pull requests, or plain bug -reports either via RT or the Mailing list. Contributors are generally -granted access to the official repository after their first several -patches pass successful review. Don't hesitate to -L<contact|/GETTING HELP/SUPPORT> either of the L</CAT HERDERS> with -any further questions you may have. +reports either via RT or the Mailing list. Do not hesitate to +L<get in touch|/GETTING HELP/SUPPORT> with any further questions you may +have. =for comment FIXME: Getty, frew and jnap need to get off their asses and finish the contrib section so we can link it here ;) @@ -200,15 +200,9 @@ =over -=item * Official repo: L<git://git.shadowcat.co.uk/dbsrgits/DBIx-Class.git> - -=item * Official gitweb: L<http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits/DBIx-Class.git> - -=item * GitHub mirror: L<https://github.com/dbsrgits/DBIx-Class> - -=item * Authorized committers: L<ssh://dbsrg...@git.shadowcat.co.uk/DBIx-Class.git> +=item * Current git repository: L<https://github.com/Perl5/DBIx-Class> -=item * Travis-CI log: L<https://travis-ci.org/dbsrgits/dbix-class/builds> +=item * Travis-CI log: L<https://travis-ci.org/Perl5/DBIx-Class/branches> =back @@ -222,7 +216,7 @@ the seemingly most insignificant questions and suggestions have been shown to catalyze monumental improvements in consistency, accuracy and performance. -List of the awesome contributors who made DBIC v0.082840 possible +List of the awesome contributors who made DBIC v0.082841 possible =encoding utf8 @@ -542,7 +536,7 @@ B<renormalist>: Steffen Schwigon <schwi...@cpan.org> -B<ribasushi>: Peter Rabbitson <ribasu...@cpan.org> +B<ribasushi>: Peter Rabbitson <ribasu...@leporine.io> B<rjbs>: Ricardo Signes <r...@cpan.org> @@ -653,23 +647,6 @@ per-line authorship is the L<git repository|/HOW TO CONTRIBUTE> history itself. -=head1 CAT HERDERS - -The fine folks nudging the project in a particular direction: - -=over - -B<ribasushi>: Peter Rabbitson <ribasu...@cpan.org> -(present day maintenance and controlled evolution) - -B<castaway>: Jess Robinson <casta...@desert-island.me.uk> -(lions share of the reference documentation and manuals) - -B<mst>: Matt S Trout <m...@shadowcat.co.uk> (project founder - -original idea, architecture and implementation) - -=back - =head1 COPYRIGHT AND LICENSE Copyright (c) 2005 by mst, castaway, ribasushi, and other DBIx::Class diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/maint/Makefile.PL.inc/21_set_meta.pl new/DBIx-Class-0.082841/maint/Makefile.PL.inc/21_set_meta.pl --- old/DBIx-Class-0.082840/maint/Makefile.PL.inc/21_set_meta.pl 2016-06-17 16:23:29.000000000 +0200 +++ new/DBIx-Class-0.082841/maint/Makefile.PL.inc/21_set_meta.pl 2018-01-29 08:31:50.000000000 +0100 @@ -1,7 +1,7 @@ # principal author list is kinda mandated by spec, luckily is rather static author 'mst: Matt S Trout <m...@shadowcat.co.uk> (project founder - original idea, architecture and implementation)'; author 'castaway: Jess Robinson <casta...@desert-island.me.uk> (lions share of the reference documentation and manuals)'; -author 'ribasushi: Peter Rabbitson <ribasu...@cpan.org> (present day maintenance and controlled evolution)'; +author 'ribasushi: Peter Rabbitson <ribasu...@leporine.io> (present day maintenance and controlled evolution)'; # pause sanity Meta->{values}{x_authority} = 'cpan:RIBASUSHI'; @@ -39,9 +39,8 @@ # misc resources abstract_from 'lib/DBIx/Class.pm'; -resources 'homepage' => 'http://www.dbix-class.org/'; resources 'IRC' => 'irc://irc.perl.org/#dbix-class'; -resources 'repository' => 'https://github.com/dbsrgits/DBIx-Class'; +resources 'repository' => 'https://github.com/Perl5/DBIx-Class'; resources 'MailingList' => 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class'; resources 'bugtracker' => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=DBIx-Class'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/t/00describe_environment.t new/DBIx-Class-0.082841/t/00describe_environment.t --- old/DBIx-Class-0.082840/t/00describe_environment.t 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/t/00describe_environment.t 2018-01-29 08:31:50.000000000 +0100 @@ -53,6 +53,15 @@ use warnings; use Test::More 'no_plan'; + +# Things happen... unfortunately +$SIG{__DIE__} = sub { + die $_[0] unless defined $^S and ! $^S; + + diag "Something horrible happened while assembling the diag data\n$_[0]"; + exit 0; +}; + use Config; use File::Find 'find'; use Digest::MD5 (); @@ -197,7 +206,7 @@ my @known_modules = sort { ($load_weights->{$b}||0) <=> ($load_weights->{$a}||0) } - qw( Data::Dumper ), + qw( Data::Dumper DBD::SQLite ), map { $_ => 1 } map @@ -416,9 +425,10 @@ ; my $max_marker_len = max map { length $_ } ( '$INC[999]', keys %$seen_markers ); +# Note - must be less than 76 chars wide to account for the diag() prefix my $discl = <<'EOD'; -List of loadable modules within both the core and *OPTIONAL* dependency chains +List of loadable modules within both *OPTIONAL* and core dependency chains present on this system (modules sourced from ./blib, ./lib, ./t, and ./xt with versions identical to their parent namespace were omitted for brevity) @@ -532,12 +542,18 @@ # File::Spec's rel2abs does not resolve symlinks # we *need* to look at the filesystem to be sure - my $abs_fn = abs_path($_[0]); + # + # But looking at the FS for non-existing basenames *may* + # throw on some OSes so be extra paranoid: + # http://www.cpantesters.org/cpan/report/26a6e42f-6c23-1014-b7dd-5cd275d8a230 + # + my $abs_fn = eval { abs_path($_[0]) } || ''; - if ( $^O eq 'MSWin32' and $abs_fn ) { + if ( $abs_fn and $^O eq 'MSWin32' ) { # sometimes we can get a short/longname mix, normalize everything to longnames - $abs_fn = Win32::GetLongPathName($abs_fn); + $abs_fn = Win32::GetLongPathName($abs_fn) + if -e $abs_fn; # Fixup (native) slashes in Config not matching (unixy) slashes in INC $abs_fn =~ s|\\|/|g; @@ -551,7 +567,7 @@ my $abs_fn = abs_unix_path($fn); - if (my $p = subpath_of_known_path( $fn ) ) { + if ($abs_fn and my $p = subpath_of_known_path( $fn ) ) { $abs_fn =~ s| (?<! / ) $|/|x if -d $abs_fn; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/t/52leaks.t new/DBIx-Class-0.082841/t/52leaks.t --- old/DBIx-Class-0.082840/t/52leaks.t 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/t/52leaks.t 2018-01-29 08:31:50.000000000 +0100 @@ -451,7 +451,7 @@ # there is one tied lexical which stays alive until GC time # https://metacpan.org/source/ETHER/B-Hooks-EndOfScope-0.15/lib/B/Hooks/EndOfScope/PP/FieldHash.pm#L24 # simply ignore it here, instead of teaching the leaktracer to examine ties - # the latter is possible yet terrible: https://github.com/dbsrgits/dbix-class/blob/v0.082820/t/lib/DBICTest/Util/LeakTracer.pm#L113-L117 + # the latter is possible yet terrible: https://metacpan.org/source/RIBASUSHI/DBIx-Class-0.082840/t/lib/DBICTest/Util/LeakTracer.pm#L113-117 delete $weak_registry->{$addr} unless $cleared->{bheos_pptiehinthashfieldhash}++; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/t/53lean_startup.t new/DBIx-Class-0.082841/t/53lean_startup.t --- old/DBIx-Class-0.082840/t/53lean_startup.t 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/t/53lean_startup.t 2018-01-29 08:31:50.000000000 +0100 @@ -111,6 +111,7 @@ Sub::Defer Sub::Quote + Hash::Merge Scalar::Util List::Util Storable @@ -143,7 +144,6 @@ { register_lazy_loadable_requires(qw( DBI - Hash::Merge )); my $s = DBICTest::Schema->connect('dbi:SQLite::memory:'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/t/55namespaces_cleaned.t new/DBIx-Class-0.082841/t/55namespaces_cleaned.t --- old/DBIx-Class-0.082840/t/55namespaces_cleaned.t 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/t/55namespaces_cleaned.t 2018-01-29 08:31:50.000000000 +0100 @@ -115,8 +115,6 @@ my $has_moose = eval { require Moose::Util }; -Sub::Defer::undefer_all(); - # can't use Class::Inspector for the mundane parts as it does not # distinguish imports from anything else, what a crock of... # Moose is not always available either - hence just do it ourselves diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/t/lib/DBICTest/RunMode.pm new/DBIx-Class-0.082841/t/lib/DBICTest/RunMode.pm --- old/DBIx-Class-0.082840/t/lib/DBICTest/RunMode.pm 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/t/lib/DBICTest/RunMode.pm 2018-01-29 08:31:50.000000000 +0100 @@ -210,7 +210,7 @@ sub is_smoker { return - ( ($ENV{TRAVIS}||'') eq 'true' and ($ENV{TRAVIS_REPO_SLUG}||'') eq 'dbsrgits/dbix-class' ) + ( ($ENV{TRAVIS}||'') eq 'true' and ($ENV{TRAVIS_REPO_SLUG}||'') eq 'Perl5/DBIx-Class' ) || ( $ENV{AUTOMATED_TESTING} && ! $ENV{PERL5_CPANM_IS_RUNNING} && ! $ENV{RELEASE_TESTING} ) ; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/t/prefetch/grouped.t new/DBIx-Class-0.082841/t/prefetch/grouped.t --- old/DBIx-Class-0.082840/t/prefetch/grouped.t 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/t/prefetch/grouped.t 2018-01-29 08:31:50.000000000 +0100 @@ -100,7 +100,7 @@ # add an extra track to one of the cds, and then make sure we can get it on top # (check if limit works) - my $top_cd = $cd_rs->slice (1,1)->next; + my $top_cd = $cd_rs->search({}, { order_by => 'cdid' })->slice (1,1)->next; $top_cd->create_related ('tracks', { title => 'over the top', }); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/t/resultset/update_delete.t new/DBIx-Class-0.082841/t/resultset/update_delete.t --- old/DBIx-Class-0.082840/t/resultset/update_delete.t 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/t/resultset/update_delete.t 2018-01-29 08:31:50.000000000 +0100 @@ -137,36 +137,6 @@ [ 'COMMIT' ], ], 'Correct null-delete-SQL with multijoin without pruning' ); - -# try the same sql with forced multicolumn in -$schema->is_executed_sql_bind( sub { - local $schema->storage->{_use_multicolumn_in} = 1; - - # this can't actually execute on sqlite - eval { $fks_multi->update ({ read_count => \ 'read_count + 1' }) }; -}, [[ - 'UPDATE fourkeys - SET read_count = read_count + 1 - WHERE ( - (foo, bar, hello, goodbye) IN ( - SELECT me.foo, me.bar, me.hello, me.goodbye - FROM fourkeys me - LEFT JOIN fourkeys_to_twokeys fourkeys_to_twokeys ON - fourkeys_to_twokeys.f_bar = me.bar - AND fourkeys_to_twokeys.f_foo = me.foo - AND fourkeys_to_twokeys.f_goodbye = me.goodbye - AND fourkeys_to_twokeys.f_hello = me.hello - WHERE ( bar = ? OR bar = ? ) AND ( foo = ? OR foo = ? ) AND fourkeys_to_twokeys.pilot_sequence != ? AND ( goodbye = ? OR goodbye = ? ) AND ( hello = ? OR hello = ? ) AND sensors != ? - ORDER BY foo, bar, hello, goodbye - ) - ) - ', - ( 1, 2) x 2, - 666, - ( 1, 2) x 2, - 'c', -]], 'Correct update-SQL with multicolumn in support' ); - $schema->is_executed_sql_bind( sub { $fks->search({ 'twokeys.artist' => { '!=' => 666 } })->update({ read_count => \ 'read_count + 1' }); }, [ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBIx-Class-0.082840/t/sqlmaker/limit_dialects/generic_subq.t new/DBIx-Class-0.082841/t/sqlmaker/limit_dialects/generic_subq.t --- old/DBIx-Class-0.082840/t/sqlmaker/limit_dialects/generic_subq.t 2016-06-20 08:55:46.000000000 +0200 +++ new/DBIx-Class-0.082841/t/sqlmaker/limit_dialects/generic_subq.t 2018-01-29 08:31:50.000000000 +0100 @@ -196,11 +196,15 @@ : ' < ?' ; +{ + local $TODO = "Temporary workaround until fix of https://twitter.com/dbix_class/status/957271153751527424 proliferates"; + is_deeply( $rs->slice(@$slice)->all_hri, [ @full_res[ $slice->[0] .. min($#full_res, $slice->[1]) ] ], "Expected array slice on complex ordered limited gensubq ($slice->[0] : $slice->[1])", ); +} is_same_sql_bind( $rs->slice(@$slice)->as_query,
