Hello community,

here is the log from the commit of package perl-DBIx-Class-Schema-Config for 
openSUSE:Factory checked in at 2019-03-01 20:30:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-DBIx-Class-Schema-Config (Old)
 and      /work/SRC/openSUSE:Factory/.perl-DBIx-Class-Schema-Config.new.28833 
(New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-DBIx-Class-Schema-Config"

Fri Mar  1 20:30:54 2019 rev:3 rq:680361 version:0.001012

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-DBIx-Class-Schema-Config/perl-DBIx-Class-Schema-Config.changes
      2017-10-18 10:54:44.044904352 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-DBIx-Class-Schema-Config.new.28833/perl-DBIx-Class-Schema-Config.changes
   2019-03-01 20:31:05.105987203 +0100
@@ -1,0 +2,9 @@
+Wed Feb 20 06:06:38 UTC 2019 - Stephan Kulow <[email protected]>
+
+- updated to 0.001012
+   see /usr/share/doc/packages/perl-DBIx-Class-Schema-Config/Changes
+
+  0.1.12
+      - Add '.' to @INC so Module::Install continues to work.
+
+-------------------------------------------------------------------

Old:
----
  DBIx-Class-Schema-Config-0.001011.tar.gz

New:
----
  DBIx-Class-Schema-Config-0.001012.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-DBIx-Class-Schema-Config.spec ++++++
--- /var/tmp/diff_new_pack.XOC8pR/_old  2019-03-01 20:31:05.729987049 +0100
+++ /var/tmp/diff_new_pack.XOC8pR/_new  2019-03-01 20:31:05.733987048 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-DBIx-Class-Schema-Config
 #
-# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 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
@@ -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-DBIx-Class-Schema-Config
-Version:        0.001011
+Version:        0.001012
 Release:        0
 %define cpan_name DBIx-Class-Schema-Config
 Summary:        Credential Management for DBIx::Class
-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/DBIx-Class-Schema-Config/
+Url:            https://metacpan.org/release/%{cpan_name}
 Source0:        
https://cpan.metacpan.org/authors/id/S/SY/SYMKAT/%{cpan_name}-%{version}.tar.gz
 Source1:        cpanspec.yml
 BuildArch:      noarch
@@ -62,11 +62,11 @@
 # MANUAL END
 
 %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

++++++ DBIx-Class-Schema-Config-0.001011.tar.gz -> 
DBIx-Class-Schema-Config-0.001012.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/DBIx-Class-Schema-Config-0.001011/Changes 
new/DBIx-Class-Schema-Config-0.001012/Changes
--- old/DBIx-Class-Schema-Config-0.001011/Changes       2014-09-11 
23:58:32.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/Changes       2019-02-19 
18:17:37.000000000 +0100
@@ -1,3 +1,5 @@
+0.1.12
+    - Add '.' to @INC so Module::Install continues to work.
 0.1.11
     - Using dbh_maker in a hash to connect() will not result
       in connect() passing through your arguments after merging
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/DBIx-Class-Schema-Config-0.001011/META.yml 
new/DBIx-Class-Schema-Config-0.001012/META.yml
--- old/DBIx-Class-Schema-Config-0.001011/META.yml      2014-09-12 
00:05:42.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/META.yml      2019-02-19 
18:19:30.000000000 +0100
@@ -3,15 +3,15 @@
 author:
   - 'Kaitlyn Parkhurst (SymKat) I<<[email protected]>> ( Blog: 
L<http://symkat.com/> )'
 build_requires:
-  Config::Any: '0.23'
+  Config::Any: 0.23
   DBD::SQLite: 0
   ExtUtils::MakeMaker: 6.36
-  Test::More: '0.42'
+  Test::More: 0.42
 configure_requires:
   ExtUtils::MakeMaker: 6.36
 distribution_type: module
 dynamic_config: 1
-generated_by: 'Module::Install version 1.10'
+generated_by: 'Module::Install version 1.19'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -22,13 +22,13 @@
     - inc
     - t
 requires:
-  Config::Any: '0.23'
-  DBIx::Class: '0.08100'
+  Config::Any: 0.23
+  DBIx::Class: 0.08100
   File::HomeDir: 0
   Hash::Merge: 0
   Storable: 0
   namespace::clean: 0
-  perl: '5.005'
+  perl: 5.005
 resources:
   license: http://dev.perl.org/licenses/
-version: '0.001011'
+version: 0.001012
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/DBIx-Class-Schema-Config-0.001011/Makefile.PL 
new/DBIx-Class-Schema-Config-0.001012/Makefile.PL
--- old/DBIx-Class-Schema-Config-0.001011/Makefile.PL   2014-09-12 
00:03:16.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/Makefile.PL   2019-02-19 
18:10:40.000000000 +0100
@@ -1,4 +1,5 @@
 use inc::Module::Install;
+BEGIN { push @INC, '.' unless $INC[-1] eq '.' }
   
 # Define metadata
 name           'DBIx-Class-Schema-Config';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Base.pm 
new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Base.pm
--- old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Base.pm    
2014-09-12 00:05:42.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Base.pm    
2019-02-19 18:19:30.000000000 +0100
@@ -4,7 +4,7 @@
 use strict 'vars';
 use vars qw{$VERSION};
 BEGIN {
-       $VERSION = '1.10';
+       $VERSION = '1.19';
 }
 
 # Suspend handler for "redefined" warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Can.pm 
new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Can.pm
--- old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Can.pm     
2014-09-12 00:05:42.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Can.pm     
2019-02-19 18:19:30.000000000 +0100
@@ -8,7 +8,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.10';
+       $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-Schema-Config-0.001011/inc/Module/Install/Fetch.pm 
new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Fetch.pm
--- old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Fetch.pm   
2014-09-12 00:05:42.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Fetch.pm   
2019-02-19 18:19:30.000000000 +0100
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.10';
+       $VERSION = '1.19';
        @ISA     = 'Module::Install::Base';
        $ISCORE  = 1;
 }
@@ -91,7 +91,3 @@
 }
 
 1;
-
-__END__
-
-#line 109
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Makefile.pm 
new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Makefile.pm
--- old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Makefile.pm        
2014-09-12 00:05:42.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Makefile.pm        
2019-02-19 18:19:30.000000000 +0100
@@ -8,7 +8,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.10';
+       $VERSION = '1.19';
        @ISA     = 'Module::Install::Base';
        $ISCORE  = 1;
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Metadata.pm 
new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Metadata.pm
--- old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Metadata.pm        
2014-09-12 00:05:42.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Metadata.pm        
2019-02-19 18:19:30.000000000 +0100
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.10';
+       $VERSION = '1.19';
        @ISA     = 'Module::Install::Base';
        $ISCORE  = 1;
 }
@@ -453,40 +453,24 @@
 
 #Stolen from M::B
 my %license_urls = (
+    perl         => 'http://dev.perl.org/licenses/',
+    apache       => 'http://apache.org/licenses/LICENSE-2.0',
+    apache_1_1   => 'http://apache.org/licenses/LICENSE-1.1',
+    artistic     => 'http://opensource.org/licenses/artistic-license.php',
+    artistic_2   => 'http://opensource.org/licenses/artistic-license-2.0.php',
+    lgpl         => 'http://opensource.org/licenses/lgpl-license.php',
+    lgpl2        => 'http://opensource.org/licenses/lgpl-2.1.php',
+    lgpl3        => 'http://opensource.org/licenses/lgpl-3.0.html',
+    bsd          => 'http://opensource.org/licenses/bsd-license.php',
+    gpl          => 'http://opensource.org/licenses/gpl-license.php',
+    gpl2         => 'http://opensource.org/licenses/gpl-2.0.php',
+    gpl3         => 'http://opensource.org/licenses/gpl-3.0.html',
+    mit          => 'http://opensource.org/licenses/mit-license.php',
+    mozilla      => 'http://opensource.org/licenses/mozilla1.1.php',
     open_source  => undef,
     unrestricted => undef,
     restrictive  => undef,
     unknown      => undef,
-
-## from Software-License - should we be using S-L instead ?
-# duplicates commeted out, see hack above ^^
-#      open_source  => 'http://www.gnu.org/licenses/agpl-3.0.txt',
-#      apache       => 'http://www.apache.org/licenses/LICENSE-1.1',
-       apache       => 'http://www.apache.org/licenses/LICENSE-2.0.txt',
-       artistic     => 'http://www.perlfoundation.org/artistic_license_1_0',
-       artistic_2   => 'http://www.perlfoundation.org/artistic_license_2_0',
-       bsd          => 'http://opensource.org/licenses/BSD-3-Clause',
-#      unrestricted => 'http://creativecommons.org/publicdomain/zero/1.0/',
-#      open_source  => 'http://www.freebsd.org/copyright/freebsd-license.html',
-#      open_source  => 'http://www.gnu.org/licenses/fdl-1.2.txt',
-#      open_source  => 'http://www.gnu.org/licenses/fdl-1.3.txt',
-#      gpl          => 'http://www.gnu.org/licenses/old-licenses/gpl-1.0.txt',
-#      gpl          => 'http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt',
-       gpl          => 'http://www.gnu.org/licenses/gpl-3.0.txt',
-#      lgpl         => 'http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt',
-       lgpl         => 'http://www.gnu.org/licenses/lgpl-3.0.txt',
-       mit          => 'http://www.opensource.org/licenses/mit-license.php',
-#      mozilla      => 'http://www.mozilla.org/MPL/MPL-1.0.txt',
-#      mozilla      => 'http://www.mozilla.org/MPL/MPL-1.1.txt',
-       mozilla      => 'http://www.mozilla.org/MPL/2.0/index.txt',
-#      restrictive  => '',
-#      open_source  => 'http://www.openssl.org/source/license.html',
-       perl         => 'http://dev.perl.org/licenses/',
-#      open_source  => 'http://www.opensource.org/licenses/postgresql',
-#      open_source  => 
'http://trolltech.com/products/qt/licenses/licensing/qpl',
-#      unrestricted => 
'http://h71000.www7.hp.com/doc/83final/BA554_90007/apcs02.html',
-#      open_source  => 'http://www.openoffice.org/licenses/sissl_license.html',
-#      open_source  => 'http://www.zlib.net/zlib_license.html',
 );
 
 sub license {
@@ -527,43 +511,31 @@
        my @phrases      = (
                '(?:under )?the same (?:terms|license) as (?:perl|the perl 
(?:\d )?programming language)' => 'perl', 1,
                '(?:under )?the terms of (?:perl|the perl programming language) 
itself' => 'perl', 1,
-
-               # the following are relied on by the test system even if they 
are wrong :(
+               'Artistic and GPL'                   => 'perl',         1,
+               'GNU general public license'         => 'gpl',          1,
+               'GNU public license'                 => 'gpl',          1,
+               'GNU lesser general public license'  => 'lgpl',         1,
+               'GNU lesser public license'          => 'lgpl',         1,
+               'GNU library general public license' => 'lgpl',         1,
+               'GNU library public license'         => 'lgpl',         1,
+               'GNU Free Documentation license'     => 'unrestricted', 1,
+               'GNU Affero General Public License'  => 'open_source',  1,
                '(?:Free)?BSD license'               => 'bsd',          1,
                'Artistic license 2\.0'              => 'artistic_2',   1,
+               'Artistic license'                   => 'artistic',     1,
+               'Apache (?:Software )?license'       => 'apache',       1,
+               'GPL'                                => 'gpl',          1,
                'LGPL'                               => 'lgpl',         1,
+               'BSD'                                => 'bsd',          1,
+               'Artistic'                           => 'artistic',     1,
                'MIT'                                => 'mit',          1,
-
-## from Software-License
-               'The GNU Affero General Public License, Version 3, November 
2007'   => 'open_source', 1,
-               'The Apache Software License, Version 1.1'                      
    => 'apache', 1,
-               'The Apache License, Version 2.0, January 2004'                 
    => 'apache', 1,
-               'The Artistic License 1.0'                                      
    => 'artistic', 1,
-               'The Artistic License 2.0 (GPL Compatible)'                     
    => 'artistic_2', 1,
-               'The (three-clause) BSD License'                                
    => 'bsd', 1,
-               'CC0 License'                                                   
                                                        => 'unrestricted', 1,   
        
-               'The (two-clause) FreeBSD License'                              
    => 'open_source', 1,
-               'GNU Free Documentation License v1.2'                           
    => 'open_source', 1,
-               'GNU Free Documentation License v1.3'                           
    => 'open_source', 1,
-               'The GNU General Public License, Version 1, February 1989'      
    => 'gpl', 1,
-               'The GNU General Public License, Version 2, June 1991'          
    => 'gpl', 1,
-               'The GNU General Public License, Version 3, June 2007'          
    => 'gpl', 1,
-               'The GNU Lesser General Public License, Version 2.1, February 
1999' => 'lgpl', 1,
-               'The GNU Lesser General Public License, Version 3, June 2007'   
    => 'lgpl', 1,
-               'The MIT (X11) License'                                         
    => 'mit', 1,
-               'The Mozilla Public License 1.0'                                
    => 'mozilla', 1,
-               'The Mozilla Public License 1.1'                                
    => 'mozilla', 1,
-               'Mozilla Public License Version 2.0'                            
                                => 'mozilla', 1,
-               '"No License" License'                                          
                                                => 'restrictive', 1,
-               'OpenSSL License'                                               
    => 'open_source', 1,
-               'the same terms as the perl 5 programming language system 
itself'   => 'perl', 1,
-               'The PostgreSQL License'                                        
                                                => 'open_source', 1,
-               'The Q Public License, Version 1.0'                             
    => 'open_source', 1,
-               'Original SSLeay License'                                       
    => 'unrestricted', 1,
-               'Sun Internet Standards Source License (SISSL)'                 
    => 'open_source', 1,
-               'The zlib License'                                              
    => 'open_source', 1,
+               'Mozilla Public License'             => 'mozilla',      1,
+               'Q Public License'                   => 'open_source',  1,
+               'OpenSSL License'                    => 'unrestricted', 1,
+               'SSLeay License'                     => 'unrestricted', 1,
+               'zlib License'                       => 'open_source',  1,
+               'proprietary'                        => 'proprietary',  0,
        );
-
        while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
                $pattern =~ s#\s+#\\s+#gs;
                if ( $license_text =~ /\b$pattern\b/i ) {
@@ -748,7 +720,3 @@
 }
 
 1;
-
-__END__
-
-#line 766
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Win32.pm 
new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Win32.pm
--- old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/Win32.pm   
2014-09-12 00:05:42.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/Win32.pm   
2019-02-19 18:19:30.000000000 +0100
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.10';
+       $VERSION = '1.19';
        @ISA     = 'Module::Install::Base';
        $ISCORE  = 1;
 }
@@ -62,7 +62,3 @@
 }
 
 1;
-
-__END__
-
-#line 80
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/WriteAll.pm 
new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/WriteAll.pm
--- old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install/WriteAll.pm        
2014-09-12 00:05:42.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install/WriteAll.pm        
2019-02-19 18:19:30.000000000 +0100
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.10';
+       $VERSION = '1.19';
        @ISA     = qw{Module::Install::Base};
        $ISCORE  = 1;
 }
@@ -61,7 +61,3 @@
 }
 
 1;
-
-__END__
-
-#line 79
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install.pm 
new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install.pm
--- old/DBIx-Class-Schema-Config-0.001011/inc/Module/Install.pm 2014-09-12 
00:05:41.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/inc/Module/Install.pm 2019-02-19 
18:19:30.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.10';
+       $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,24 +375,14 @@
        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]): $!";
+       binmode FH;
        my $string = do { local $/; <FH> };
        close FH or die "close($_[0]): $!";
        return $string;
 }
-END_NEW
-sub _read {
-       local *FH;
-       open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
-       my $string = do { local $/; <FH> };
-       close FH or die "close($_[0]): $!";
-       return $string;
-}
-END_OLD
 
 sub _readperl {
        my $string = Module::Install::_read($_[0]);
@@ -411,26 +403,15 @@
        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]): $!";
+       binmode FH;
        foreach ( 1 .. $#_ ) {
                print FH $_[$_] or die "print($_[0]): $!";
        }
        close FH or die "close($_[0]): $!";
 }
-END_NEW
-sub _write {
-       local *FH;
-       open( FH, "> $_[0]"  ) or die "open($_[0]): $!";
-       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).
@@ -467,7 +448,4 @@
 
 1;
 
-
-__END__
-
-#line 485
+# Copyright 2008 - 2012 Adam Kennedy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/DBIx-Class-Schema-Config-0.001011/lib/DBIx/Class/Schema/Config.pm 
new/DBIx-Class-Schema-Config-0.001012/lib/DBIx/Class/Schema/Config.pm
--- old/DBIx-Class-Schema-Config-0.001011/lib/DBIx/Class/Schema/Config.pm       
2014-09-11 23:59:40.000000000 +0200
+++ new/DBIx-Class-Schema-Config-0.001012/lib/DBIx/Class/Schema/Config.pm       
2019-02-19 18:17:49.000000000 +0100
@@ -8,7 +8,7 @@
 use Hash::Merge qw( merge );
 use namespace::clean;
 
-our $VERSION = '0.001011'; # 0.1.11
+our $VERSION = '0.001012'; # 0.1.12
 $VERSION = eval $VERSION;
 
 sub connection {


Reply via email to