Hello community,
here is the log from the commit of package perl-DBIx-Class-Schema-Loader for
openSUSE:Factory checked in at 2018-03-05 13:36:41
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-DBIx-Class-Schema-Loader (Old)
and /work/SRC/openSUSE:Factory/.perl-DBIx-Class-Schema-Loader.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-DBIx-Class-Schema-Loader"
Mon Mar 5 13:36:41 2018 rev:6 rq:568418 version:0.07048
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-DBIx-Class-Schema-Loader/perl-DBIx-Class-Schema-Loader.changes
2017-06-01 16:33:16.150595377 +0200
+++
/work/SRC/openSUSE:Factory/.perl-DBIx-Class-Schema-Loader.new/perl-DBIx-Class-Schema-Loader.changes
2018-03-05 13:36:41.834462857 +0100
@@ -1,0 +2,12 @@
+Sun Jan 21 06:17:44 UTC 2018 - [email protected]
+
+- updated to 0.07048
+ see /usr/share/doc/packages/perl-DBIx-Class-Schema-Loader/Changes
+
+ 0.07048 2018-01-20
+ - Fix for PostgreSQL enums not in the schema search path (RT#123234)
+ - Fix 'default now()' test for PostgreSQL v10
+ - Work around incompatible change in Hash::Merge (GH#16)
+ - Fix skip count for non-InnoDB MySQL test
+
+-------------------------------------------------------------------
Old:
----
DBIx-Class-Schema-Loader-0.07047.tar.gz
New:
----
DBIx-Class-Schema-Loader-0.07048.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-DBIx-Class-Schema-Loader.spec ++++++
--- /var/tmp/diff_new_pack.Ty8Evu/_old 2018-03-05 13:36:42.382443025 +0100
+++ /var/tmp/diff_new_pack.Ty8Evu/_new 2018-03-05 13:36:42.386442881 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-DBIx-Class-Schema-Loader
#
-# 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-Schema-Loader
-Version: 0.07047
+Version: 0.07048
Release: 0
%define cpan_name DBIx-Class-Schema-Loader
Summary: Create a DBIx::Class::Schema based on a database
@@ -57,6 +57,7 @@
BuildRequires: perl(Test::More) >= 0.94
BuildRequires: perl(Test::Warn) >= 0.21
BuildRequires: perl(Try::Tiny)
+BuildRequires: perl(curry) >= 1.000000
BuildRequires: perl(namespace::clean) >= 0.23
Requires: perl(Carp::Clan)
Requires: perl(Class::Accessor::Grouped) >= 0.10008
@@ -77,6 +78,7 @@
Requires: perl(String::ToIdentifier::EN) >= 0.05
Requires: perl(Sub::Util) >= 1.40
Requires: perl(Try::Tiny)
+Requires: perl(curry) >= 1.000000
Requires: perl(namespace::clean) >= 0.23
%{perl_requires}
++++++ DBIx-Class-Schema-Loader-0.07047.tar.gz ->
DBIx-Class-Schema-Loader-0.07048.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07047/Changes
new/DBIx-Class-Schema-Loader-0.07048/Changes
--- old/DBIx-Class-Schema-Loader-0.07047/Changes 2017-05-26
16:57:38.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/Changes 2018-01-20
23:03:28.000000000 +0100
@@ -1,5 +1,11 @@
Revision history for Perl extension DBIx::Class::Schema::Loader
+0.07048 2018-01-20
+ - Fix for PostgreSQL enums not in the schema search path (RT#123234)
+ - Fix 'default now()' test for PostgreSQL v10
+ - Work around incompatible change in Hash::Merge (GH#16)
+ - Fix skip count for non-InnoDB MySQL test
+
0.07047 2017-05-26
- Avoid upcoming DBIC warning on implicit SELECT * invocation
(RT#118178)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07047/META.yml
new/DBIx-Class-Schema-Loader-0.07048/META.yml
--- old/DBIx-Class-Schema-Loader-0.07047/META.yml 2017-05-26
16:58:57.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/META.yml 2018-01-20
23:24:08.000000000 +0100
@@ -17,7 +17,7 @@
ExtUtils::MakeMaker: 6.59
distribution_type: module
dynamic_config: 1
-generated_by: 'Module::Install version 1.17'
+generated_by: 'Module::Install version 1.18'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -49,6 +49,7 @@
String::ToIdentifier::EN: '0.05'
Sub::Util: '1.40'
Try::Tiny: 0
+ curry: '1.000000'
namespace::clean: '0.23'
perl: 5.8.1
resources:
@@ -56,4 +57,4 @@
MailingList: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
license: http://dev.perl.org/licenses/
repository: https://github.com/dbsrgits/dbix-class-schema-loader
-version: '0.07047'
+version: '0.07048'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07047/Makefile.PL
new/DBIx-Class-Schema-Loader-0.07048/Makefile.PL
--- old/DBIx-Class-Schema-Loader-0.07047/Makefile.PL 2017-04-10
15:34:15.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/Makefile.PL 2017-11-22
00:26:54.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
use 5.008001;
-use lib '.';
+BEGIN { unshift @INC, '.' unless $INC[-1] eq '.'; }
use inc::Module::Install 1.00;
use Getopt::Long();
@@ -44,6 +44,7 @@
requires 'Class::C3::Componentised' => '1.0008';
requires 'Class::Inspector' => '1.27';
requires 'Class::Unload' => '0.07';
+requires 'curry' => '1.000000',
requires 'Data::Dump' => '1.06';
requires 'DBIx::Class' => '0.08127';
requires 'Hash::Merge' => '0.12';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/AutoInstall.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/AutoInstall.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/AutoInstall.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/AutoInstall.pm
2018-01-20 23:24:08.000000000 +0100
@@ -8,7 +8,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
}
# special map on pre-defined feature sets
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/AutoInstall.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/AutoInstall.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/AutoInstall.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/AutoInstall.pm
2018-01-20 23:24:08.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Base.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Base.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Base.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Base.pm
2018-01-20 23:24:08.000000000 +0100
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
}
# Suspend handler for "redefined" warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Can.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Can.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Can.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Can.pm
2018-01-20 23:24:08.000000000 +0100
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Fetch.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Fetch.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Fetch.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Fetch.pm
2018-01-20 23:24:08.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Include.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Include.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Include.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Include.pm
2018-01-20 23:24:08.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Makefile.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Makefile.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Makefile.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Makefile.pm
2018-01-20 23:24:08.000000000 +0100
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Metadata.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Metadata.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Metadata.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Metadata.pm
2018-01-20 23:24:08.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Scripts.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Scripts.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Scripts.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Scripts.pm
2018-01-20 23:24:08.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Win32.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Win32.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/Win32.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/Win32.pm
2018-01-20 23:24:08.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/WriteAll.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/WriteAll.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install/WriteAll.pm
2017-05-26 16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install/WriteAll.pm
2018-01-20 23:24:08.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.17';
+ $VERSION = '1.18';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install.pm
new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install.pm
--- old/DBIx-Class-Schema-Loader-0.07047/inc/Module/Install.pm 2017-05-26
16:58:56.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/inc/Module/Install.pm 2018-01-20
23:24:08.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.17';
+ $VERSION = '1.18';
# Storage for the pseudo-singleton
$MAIN = undef;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/Base.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/Base.pm
--- old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/Base.pm
2017-05-26 16:57:38.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/Base.pm
2018-01-20 23:02:47.000000000 +0100
@@ -28,9 +28,10 @@
use Encode qw/encode decode/;
use List::Util qw/all any none/;
use File::Temp 'tempfile';
+use curry;
use namespace::clean;
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
__PACKAGE__->mk_group_ro_accessors('simple', qw/
schema
@@ -2594,7 +2595,7 @@
my $accessor = $self->_run_user_map(
$self->col_accessor_map,
- sub { $self->_default_column_accessor_name( shift ) },
+ $self->curry::_default_column_accessor_name,
$column_name,
$column_context_info,
);
@@ -2847,7 +2848,7 @@
$self->_run_user_map(
$self->moniker_map,
- sub { $self->_default_table2moniker( shift ) },
+ $self->curry::_default_table2moniker,
$table
);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
2018-01-20 23:02:47.000000000 +0100
@@ -10,7 +10,7 @@
use Try::Tiny;
use namespace::clean;
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm
2018-01-20 23:02:47.000000000 +0100
@@ -11,7 +11,7 @@
use namespace::clean;
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ADO.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ADO.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ADO.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ADO.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
2018-01-20 23:02:47.000000000 +0100
@@ -13,7 +13,7 @@
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Firebird.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Firebird.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Firebird.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Firebird.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base qw/DBIx::Class::Schema::Loader::DBI::InterBase/;
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm
2018-01-20 23:02:47.000000000 +0100
@@ -10,7 +10,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table::Informix ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
2018-01-20 23:02:47.000000000 +0100
@@ -9,7 +9,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
sub _supports_db_schema { 0 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
2018-01-20 23:02:47.000000000 +0100
@@ -10,7 +10,7 @@
use DBIx::Class::Schema::Loader::Table::Sybase ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC/ACCESS.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC/ACCESS.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC/ACCESS.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC/ACCESS.pm
2018-01-20 23:02:47.000000000 +0100
@@ -8,7 +8,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
__PACKAGE__->mk_group_accessors('simple', qw/
__ado_connection
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
2018-01-20 23:02:47.000000000 +0100
@@ -8,7 +8,7 @@
/;
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
2018-01-20 23:02:47.000000000 +0100
@@ -8,7 +8,7 @@
/;
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
2018-01-20 23:02:47.000000000 +0100
@@ -8,7 +8,7 @@
/;
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
2018-01-20 23:02:47.000000000 +0100
@@ -8,7 +8,7 @@
use DBIx::Class::Schema::Loader::Utils qw/sigwarn_silencer/;
use namespace::clean;
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
--- old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
2017-05-26 16:57:38.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault';
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
@@ -286,22 +286,21 @@
->selectrow_array(<<EOF, {}, $data_type);
SELECT typtype
FROM pg_catalog.pg_type
-WHERE typname = ?
+WHERE oid = ?::regtype
EOF
if ($typetype && $typetype eq 'e') {
# The following will extract a list of allowed values for the
enum.
my $order_column = $self->dbh->{pg_server_version} >= 90100 ?
'enumsortorder' : 'oid';
$info->{extra}{list} = $self->dbh
- ->selectcol_arrayref(<<EOF, {}, $info->{data_type});
+ ->selectcol_arrayref(<<EOF, {}, $data_type);
SELECT e.enumlabel
FROM pg_catalog.pg_enum e
-JOIN pg_catalog.pg_type t ON t.oid = e.enumtypid
-WHERE t.typname = ?
+WHERE e.enumtypid = ?::regtype
ORDER BY e.$order_column
EOF
# Store its original name in extra for SQLT to pick up.
- $info->{extra}{custom_type_name} = $info->{data_type};
+ $info->{extra}{custom_type_name} = $data_type;
$info->{data_type} = 'enum';
@@ -309,24 +308,28 @@
}
}
-# process SERIAL columns
- if (ref($info->{default_value}) eq 'SCALAR'
- && ${ $info->{default_value} } =~ /\bnextval\('([^:]+)'/i) {
- $info->{is_auto_increment} = 1;
- $info->{sequence} = $1;
- delete $info->{default_value};
- }
-
-# alias now() to current_timestamp for deploying to other DBs
- if ((eval { lc ${ $info->{default_value} } }||'') eq 'now()') {
- # do not use a ref to a constant, that breaks Data::Dump output
- ${$info->{default_value}} = 'current_timestamp';
+ if (ref($info->{default_value}) eq 'SCALAR') {
+ # process SERIAL columns
+ if (${ $info->{default_value} } =~ /\bnextval\('([^:]+)'/i) {
+ $info->{is_auto_increment} = 1;
+ $info->{sequence} = $1;
+ delete $info->{default_value};
+ }
+ # alias now() to current_timestamp for deploying to other DBs
+ elsif (lc ${ $info->{default_value} } eq 'now()') {
+ # do not use a ref to a constant, that breaks Data::Dump output
+ ${$info->{default_value}} = 'current_timestamp';
- my $now = 'now()';
- $info->{original}{default_value} = \$now;
+ my $now = 'now()';
+ $info->{original}{default_value} = \$now;
+ }
+ elsif (${ $info->{default_value} } =~ /\bCURRENT_TIMESTAMP\b/) {
+ # PostgreSQL v10 upcases current_timestamp in default values
+ ${ $info->{default_value} } =~ s/\b(CURRENT_TIMESTAMP)\b/lc
$1/ge;
+ }
}
-# detect 0/1 for booleans and rewrite
+ # detect 0/1 for booleans and rewrite
if ($data_type =~ /^bool/i && exists $info->{default_value}) {
if ($info->{default_value} eq '0') {
my $false = 'false';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
2018-01-20 23:02:47.000000000 +0100
@@ -8,7 +8,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
2018-01-20 23:02:47.000000000 +0100
@@ -6,7 +6,7 @@
use mro 'c3';
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI::MSSQL';
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
2018-01-20 23:02:47.000000000 +0100
@@ -9,7 +9,7 @@
use DBIx::Class::Schema::Loader::Table::Sybase ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
2018-01-20 23:02:47.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
# Empty. POD only.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
2018-01-20 23:02:47.000000000 +0100
@@ -12,7 +12,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI.pm
--- old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/DBI.pm
2017-05-26 16:57:38.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/DBI.pm
2018-01-20 23:02:47.000000000 +0100
@@ -10,7 +10,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
__PACKAGE__->mk_group_accessors('simple', qw/
_disable_pk_detection
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_05';
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
sub _relnames_and_method {
my ( $self, $local_moniker, $rel, $cond, $uniqs, $counters ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
2018-01-20 23:02:47.000000000 +0100
@@ -8,7 +8,7 @@
use namespace::clean;
use Lingua::EN::Inflect::Number ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
sub _to_PL {
my ($self, $name) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm
2018-01-20 23:02:47.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07';
use mro 'c3';
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
sub _normalize_name {
my ($self, $name) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
2018-01-20 23:02:47.000000000 +0100
@@ -17,7 +17,7 @@
=cut
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
sub _strip_id_postfix {
my ($self, $name) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
---
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
2017-05-26 16:57:38.000000000 +0200
+++
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
2018-01-20 23:02:47.000000000 +0100
@@ -17,7 +17,7 @@
use Class::Unload ();
use Class::Inspector ();
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
# Glossary:
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader.pm
new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader.pm
--- old/DBIx-Class-Schema-Loader-0.07047/lib/DBIx/Class/Schema/Loader.pm
2017-05-26 16:57:38.000000000 +0200
+++ new/DBIx-Class-Schema-Loader-0.07048/lib/DBIx/Class/Schema/Loader.pm
2018-01-20 23:02:47.000000000 +0100
@@ -8,15 +8,15 @@
use Carp::Clan qw/^DBIx::Class/;
use Scalar::Util 'weaken';
use Sub::Util 'set_subname';
-use DBIx::Class::Schema::Loader::Utils 'array_eq';
+use DBIx::Class::Schema::Loader::Utils qw/array_eq sigwarn_silencer/;
use Try::Tiny;
-use Hash::Merge 'merge';
+use curry;
use namespace::clean;
# Always remember to do all digits for the version even if they're 0
# i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports
# brain damage and presumably various other packaging systems too
-our $VERSION = '0.07047';
+our $VERSION = '0.07048';
__PACKAGE__->mk_group_accessors('inherited', qw/
_loader_args
@@ -232,13 +232,28 @@
$self->_copy_state_from($from);
- $self->class_mappings(merge($orig_class_mappings, $self->class_mappings))
+ $self->class_mappings(__merge($orig_class_mappings, $self->class_mappings))
if $orig_class_mappings;
- $self->source_registrations(merge($orig_source_registrations,
$self->source_registrations))
+ $self->source_registrations(__merge($orig_source_registrations,
$self->source_registrations))
if $orig_source_registrations;
}
+my $merger;
+sub __merge {
+
+ local $SIG{__WARN__} = sigwarn_silencer(qr/Arguments for _merge_hashes must
be hash references/);
+
+ ( $merger ||= do {
+ require Hash::Merge;
+ my $m = Hash::Merge->new('LEFT_PRECEDENT');
+ $m->set_clone_behavior(0);
+ $m;
+ } )->merge(
+ $_[0], $_[1]
+ );
+}
+
sub _copy_state_from {
my $self = shift;
my ($from) = @_;
@@ -460,11 +475,11 @@
}
elsif($opt eq 'naming') {
no strict 'refs';
- *{"${cpkg}::naming"} = sub { $self->naming(@_) };
+ *{"${cpkg}::naming"} = $self->curry::naming;
}
elsif($opt eq 'use_namespaces') {
no strict 'refs';
- *{"${cpkg}::use_namespaces"} = sub { $self->use_namespaces(@_) };
+ *{"${cpkg}::use_namespaces"} = $self->curry::use_namespaces,
}
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07047/t/10_03pg_common.t
new/DBIx-Class-Schema-Loader-0.07048/t/10_03pg_common.t
--- old/DBIx-Class-Schema-Loader-0.07047/t/10_03pg_common.t 2017-02-01
14:32:41.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07048/t/10_03pg_common.t 2017-11-19
16:43:29.000000000 +0100
@@ -226,9 +226,12 @@
)
},
q{
+ CREATE TYPE "dbicsl.test".pg_loader_test_enum2 AS ENUM
('wibble','wobble')
+ },
+ q{
CREATE TABLE "dbicsl.test".pg_loader_test7 (
id SERIAL PRIMARY KEY,
- value VARCHAR(100),
+ value "dbicsl.test".pg_loader_test_enum2,
six_id INTEGER UNIQUE REFERENCES
"dbicsl.test".pg_loader_test6 (id)
)
},
@@ -294,7 +297,7 @@
'DROP VIEW pg_loader_test11',
],
drop => [ qw/pg_loader_test1 pg_loader_test2 pg_loader_test9
pg_loader_test10 pg_loader_test12/ ],
- count => 11 + 30 * 2, # regular + multi-schema * 2
+ count => 11 + 33 * 2, # regular + multi-schema * 2
run => sub {
my ($schema, $monikers, $classes) = @_;
@@ -454,6 +457,13 @@
lives_and {
ok $rsrc = $test_schema->source('PgLoaderTest7');
+ my $col_info = $rsrc->column_info('value');
+ is $col_info->{data_type}, 'enum',
+ 'enum column in schema name with dot';
+ is $col_info->{extra}{custom_type_name},
'"dbicsl.test".pg_loader_test_enum2',
+ 'original data type for enum in schema name with dot';
+ is_deeply $col_info->{extra}{list}, [qw(wibble wobble)],
+ 'value list for for enum in schema name with dot';
} 'got source for table in schema name with dot';
%uniqs = try { $rsrc->unique_constraints };
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07047/t/lib/dbixcsl_common_tests.pm
new/DBIx-Class-Schema-Loader-0.07048/t/lib/dbixcsl_common_tests.pm
--- old/DBIx-Class-Schema-Loader-0.07047/t/lib/dbixcsl_common_tests.pm
2016-02-18 21:10:34.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07048/t/lib/dbixcsl_common_tests.pm
2018-01-20 21:45:56.000000000 +0100
@@ -10,6 +10,7 @@
use DBIx::Class::Schema::Loader;
use Class::Unload;
use File::Path 'rmtree';
+use curry;
use DBI;
use File::Find 'find';
use Class::Unload ();
@@ -117,12 +118,9 @@
my $extra_count = $self->{extra}{count} || 0;
my $col_accessor_map_tests = 6;
- my $num_rescans = 6;
- $num_rescans++ if $self->{vendor} eq 'mssql';
- $num_rescans++ if $self->{vendor} eq 'Firebird';
plan tests => @connect_info *
- (233 + $num_rescans * $col_accessor_map_tests + $extra_count +
($self->{data_type_tests}{test_count} || 0));
+ (233 + $col_accessor_map_tests + $extra_count +
($self->{data_type_tests}{test_count} || 0));
foreach my $info_idx (0..$#connect_info) {
my $info = $connect_info[$info_idx];
@@ -184,12 +182,12 @@
$self->test_data_types($conn);
$self->{extra}{run}->($conn, $monikers, $classes, $self) if
$self->{extra}{run};
+ $conn->storage->disconnect;
if (not ($ENV{SCHEMA_LOADER_TESTS_NOCLEANUP} && $info_idx ==
$#$connect_info)) {
$self->drop_extra_tables_only;
rmtree DUMP_DIR;
}
- $conn->storage->disconnect;
}
}
@@ -234,6 +232,8 @@
$self->{use_moose} = 1;
}
+ $self->{col_accessor_map_tests_run} = 0;
+
my %loader_opts = (
constraint => $self->CONSTRAINT,
result_namespace => RESULT_NAMESPACE,
@@ -260,7 +260,7 @@
col_collision_map => { '^(can)\z' => 'caught_collision_%s' },
rel_collision_map => { '^(set_primary_key)\z' =>
'caught_rel_collision_%s' },
relationship_attrs => { many_to_many => { order_by => 'me.id' } },
- col_accessor_map => \&test_col_accessor_map,
+ col_accessor_map => $self->curry::weak::test_col_accessor_map,
result_components_map => { LoaderTest2X => 'TestComponentForMap',
LoaderTest1 => '+TestComponentForMapFQN' },
uniq_to_primary => 1,
%{ $self->{loader_options} || {} },
@@ -634,7 +634,7 @@
'is_nullable=1 detection';
SKIP: {
- skip $self->{skip_rels}, 149 if $self->{skip_rels};
+ skip $self->{skip_rels}, 143 if $self->{skip_rels};
my $moniker3 = $monikers->{loader_test3};
my $class3 = $classes->{loader_test3};
@@ -1390,9 +1390,9 @@
diag $@ if $@ && (not $TODO);
}
- $self->drop_tables unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP};
-
$conn->storage->disconnect;
+
+ $self->drop_tables unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP};
}
sub test_data_types {
@@ -2450,13 +2450,14 @@
}
sub test_col_accessor_map {
- my ( $column_name, $default_name, $context, $default_map ) = @_;
+ my ( $self, $column_name, $default_name, $context, $default_map ) = @_;
if( lc($column_name) eq 'crumb_crisp_coating' ) {
- is( $default_name, 'crumb_crisp_coating', 'col_accessor_map was passed
the default name' );
- ok( $context->{$_}, "col_accessor_map func was passed the $_" )
- for qw( table table_name table_class table_moniker schema_class );
-
+ unless ($self->{col_accessor_map_tests_run}++) {
+ is( $default_name, 'crumb_crisp_coating', 'col_accessor_map was
passed the default name' );
+ ok( $context->{$_}, "col_accessor_map func was passed the $_" )
+ for qw( table table_name table_class table_moniker
schema_class );
+ }
return 'trivet';
} else {
return $default_map->({
