Hello community, here is the log from the commit of package perl-Config-Any for openSUSE:Factory checked in at 2015-04-30 11:51:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Config-Any (Old) and /work/SRC/openSUSE:Factory/.perl-Config-Any.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Config-Any" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Config-Any/perl-Config-Any.changes 2015-04-27 13:04:14.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Config-Any.new/perl-Config-Any.changes 2015-04-30 11:51:34.000000000 +0200 @@ -1,0 +2,9 @@ +Thu Apr 30 05:45:15 UTC 2015 - co...@suse.com + +- updated to 0.26 + see /usr/share/doc/packages/perl-Config-Any/Changes + + 0.26 2015-04-29 + - fix error reporting from code applied in 0.25 (RT #104079) + +------------------------------------------------------------------- Old: ---- Config-Any-0.25.tar.gz New: ---- Config-Any-0.26.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Config-Any.spec ++++++ --- /var/tmp/diff_new_pack.FNbcpr/_old 2015-04-30 11:51:35.000000000 +0200 +++ /var/tmp/diff_new_pack.FNbcpr/_new 2015-04-30 11:51:35.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Config-Any -Version: 0.25 +Version: 0.26 Release: 0 %define cpan_name Config-Any Summary: Load configuration from different file formats, transparently ++++++ Config-Any-0.25.tar.gz -> Config-Any-0.26.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/Changes new/Config-Any-0.26/Changes --- old/Config-Any-0.25/Changes 2015-04-24 03:33:10.000000000 +0200 +++ new/Config-Any-0.26/Changes 2015-04-30 01:04:47.000000000 +0200 @@ -1,5 +1,8 @@ Revision history for Config-Any +0.26 2015-04-29 + - fix error reporting from code applied in 0.25 (RT #104079) + 0.25 2015-04-23 - do not clobber $@ (RT #103061) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/META.yml new/Config-Any-0.26/META.yml --- old/Config-Any-0.25/META.yml 2015-04-24 03:38:18.000000000 +0200 +++ new/Config-Any-0.26/META.yml 2015-04-30 01:07:42.000000000 +0200 @@ -25,4 +25,4 @@ resources: license: http://dev.perl.org/licenses/ repository: git://git.shadowcat.co.uk/p5sagit/Config-Any.git -version: 0.25 +version: 0.26 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/lib/Config/Any.pm new/Config-Any-0.26/lib/Config/Any.pm --- old/Config-Any-0.25/lib/Config/Any.pm 2015-04-24 03:33:19.000000000 +0200 +++ new/Config-Any-0.26/lib/Config/Any.pm 2015-04-30 01:05:15.000000000 +0200 @@ -6,7 +6,7 @@ use Carp; use Module::Pluggable::Object (); -our $VERSION = '0.25'; +our $VERSION = '0.26'; =head1 NAME @@ -195,15 +195,15 @@ next unless $loader->is_supported; $supported = 1; my @configs; - my $ok = do { + my $err = do { local $@; @configs = eval { $loader->load( $filename, $loader_args{ $loader } ); }; - 1; + $@; }; # fatal error if we used extension matching - croak "Error parsing $filename: $@" if !$ok and $use_ext_lut; - next if !$ok or !@configs; + croak "Error parsing $filename: $err" if $err and $use_ext_lut; + next if $err or !@configs; # post-process config with a filter callback if ( $args->{ filter } ) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/t/50-general.t new/Config-Any-0.26/t/50-general.t --- old/Config-Any-0.25/t/50-general.t 2013-08-15 03:12:36.000000000 +0200 +++ new/Config-Any-0.26/t/50-general.t 2015-04-30 01:03:29.000000000 +0200 @@ -2,13 +2,14 @@ use warnings; use Test::More; +use Config::Any; use Config::Any::General; if ( !Config::Any::General->is_supported ) { plan skip_all => 'Config::General format not supported'; } else { - plan tests => 7; + plan tests => 9; } { @@ -37,4 +38,13 @@ ok( !$config, 'config load failed' ); ok( $@, "error thrown ($@)" ); +} + +# parse error generated on invalid config +{ + my $file = 't/invalid/conf.conf'; + my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/t/51-ini.t new/Config-Any-0.26/t/51-ini.t --- old/Config-Any-0.25/t/51-ini.t 2013-08-15 03:12:36.000000000 +0200 +++ new/Config-Any-0.26/t/51-ini.t 2015-04-30 01:03:29.000000000 +0200 @@ -2,13 +2,14 @@ use warnings; use Test::More; +use Config::Any; use Config::Any::INI; if ( !Config::Any::INI->is_supported ) { plan skip_all => 'INI format not supported'; } else { - plan tests => 13; + plan tests => 15; } { @@ -54,4 +55,13 @@ ok( !$config, 'config load failed' ); ok( $@, "error thrown ($@)" ); +} + +# parse error generated on invalid config +{ + my $file = 't/invalid/conf.ini'; + my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/t/52-json.t new/Config-Any-0.26/t/52-json.t --- old/Config-Any-0.25/t/52-json.t 2013-08-15 03:12:36.000000000 +0200 +++ new/Config-Any-0.26/t/52-json.t 2015-04-30 01:03:29.000000000 +0200 @@ -2,13 +2,14 @@ use warnings; use Test::More; +use Config::Any; use Config::Any::JSON; if ( !Config::Any::JSON->is_supported ) { plan skip_all => 'JSON format not supported'; } else { - plan tests => 4; + plan tests => 6; } { @@ -24,4 +25,13 @@ ok( !$config, 'config load failed' ); ok( $@, "error thrown ($@)" ); +} + +# parse error generated on invalid config +{ + my $file = 't/invalid/conf.json'; + my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/t/53-perl.t new/Config-Any-0.26/t/53-perl.t --- old/Config-Any-0.25/t/53-perl.t 2013-08-15 03:12:36.000000000 +0200 +++ new/Config-Any-0.26/t/53-perl.t 2015-04-30 01:03:29.000000000 +0200 @@ -1,8 +1,8 @@ use strict; use warnings; -use Test::More tests => 5; - +use Test::More tests => 7; +use Config::Any; use Config::Any::Perl; { @@ -23,4 +23,13 @@ ok( !$config, 'config load failed' ); ok( $@, "error thrown ($@)" ); +} + +# parse error generated on invalid config +{ + my $file = 't/invalid/conf.pl'; + my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/t/54-xml.t new/Config-Any-0.26/t/54-xml.t --- old/Config-Any-0.25/t/54-xml.t 2013-08-15 03:12:36.000000000 +0200 +++ new/Config-Any-0.26/t/54-xml.t 2015-04-30 01:03:29.000000000 +0200 @@ -2,13 +2,14 @@ use warnings; use Test::More; +use Config::Any; use Config::Any::XML; if ( !Config::Any::XML->is_supported ) { plan skip_all => 'XML format not supported'; } else { - plan tests => 6; + plan tests => 8; } { @@ -39,3 +40,13 @@ ok( $config, 'config loaded' ); ok( !$@, 'no error thrown' ); } + +# parse error generated on invalid config +{ + my $file = 't/invalid/conf.xml'; + my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); +} + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Config-Any-0.25/t/55-yaml.t new/Config-Any-0.26/t/55-yaml.t --- old/Config-Any-0.25/t/55-yaml.t 2013-09-10 20:41:34.000000000 +0200 +++ new/Config-Any-0.26/t/55-yaml.t 2015-04-30 01:03:29.000000000 +0200 @@ -3,13 +3,14 @@ no warnings 'once'; use Test::More; +use Config::Any; use Config::Any::YAML; if ( !Config::Any::YAML->is_supported ) { plan skip_all => 'YAML format not supported'; } else { - plan tests => 4; + plan tests => 6; } { @@ -25,4 +26,13 @@ ok( !$config, 'config load failed' ); ok( $@, "error thrown ($@)" ); +} + +# parse error generated on invalid config +{ + my $file = 't/invalid/conf.yml'; + my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); }