Hello community, here is the log from the commit of package perl-Data-Printer for openSUSE:Factory checked in at 2017-05-16 14:33:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Data-Printer (Old) and /work/SRC/openSUSE:Factory/.perl-Data-Printer.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Printer" Tue May 16 14:33:33 2017 rev:4 rq:489026 version:0.39 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Data-Printer/perl-Data-Printer.changes 2016-02-25 22:48:49.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Data-Printer.new/perl-Data-Printer.changes 2017-05-16 14:33:49.202684951 +0200 @@ -1,0 +2,15 @@ +Sun Apr 16 05:23:15 UTC 2017 - co...@suse.com + +- updated to 0.39 + see /usr/share/doc/packages/perl-Data-Printer/Changes + + 0.39 2016-04-15 + BUG FIXES: + - display '-' as a string, not a number (Ivan Bessarabov) + - display "123 +" as a string, not a number (Ivan Bessarabov) + - fix test failures on newer perls (Sergey Aleynikov) + OTHER: + - document availability of np() on Data::Printer::Filter (Olaf Alders) + +------------------------------------------------------------------- Old: ---- Data-Printer-0.38.tar.gz New: ---- Data-Printer-0.39.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Data-Printer.spec ++++++ --- /var/tmp/diff_new_pack.j8CSuQ/_old 2017-05-16 14:33:49.962578194 +0200 +++ /var/tmp/diff_new_pack.j8CSuQ/_new 2017-05-16 14:33:49.962578194 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Data-Printer # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 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,14 +17,14 @@ Name: perl-Data-Printer -Version: 0.38 +Version: 0.39 Release: 0 %define cpan_name Data-Printer Summary: Colored Pretty-Print of Perl Data Structures and Objects License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Data-Printer/ -Source0: http://www.cpan.org/authors/id/G/GA/GARU/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/G/GA/GARU/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ Data-Printer-0.38.tar.gz -> Data-Printer-0.39.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/.travis.yml new/Data-Printer-0.39/.travis.yml --- old/Data-Printer-0.38/.travis.yml 2016-01-28 01:03:20.000000000 +0100 +++ new/Data-Printer-0.39/.travis.yml 2017-04-15 18:02:20.000000000 +0200 @@ -6,3 +6,4 @@ - "5.16" - "5.18" - "5.20" + - "5.22" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/Changes new/Data-Printer-0.39/Changes --- old/Data-Printer-0.38/Changes 2016-01-28 18:56:43.000000000 +0100 +++ new/Data-Printer-0.39/Changes 2017-04-15 18:41:58.000000000 +0200 @@ -1,5 +1,13 @@ Revision history for Data-Printer +0.39 2016-04-15 + BUG FIXES: + - display '-' as a string, not a number (Ivan Bessarabov) + - display "123\n" as a string, not a number (Ivan Bessarabov) + - fix test failures on newer perls (Sergey Aleynikov) + OTHER: + - document availability of np() on Data::Printer::Filter (Olaf Alders) + 0.38 2016-01-28 BUG FIXES: - removed Test::Most unlisted dependency diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/META.json new/Data-Printer-0.39/META.json --- old/Data-Printer-0.38/META.json 2016-01-28 18:58:30.000000000 +0100 +++ new/Data-Printer-0.39/META.json 2017-04-15 18:46:27.000000000 +0200 @@ -4,7 +4,7 @@ "Breno G. de Oliveira <g...@cpan.org>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.142690", + "generated_by" : "ExtUtils::MakeMaker version 7.1002, CPAN::Meta::Converter version 2.150005", "license" : [ "perl_5" ], @@ -59,5 +59,6 @@ "url" : "https://github.com/garu/Data-Printer"; } }, - "version" : "0.38" + "version" : "0.39", + "x_serialization_backend" : "JSON::PP version 2.27300_01" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/META.yml new/Data-Printer-0.39/META.yml --- old/Data-Printer-0.38/META.yml 2016-01-28 18:58:29.000000000 +0100 +++ new/Data-Printer-0.39/META.yml 2017-04-15 18:46:26.000000000 +0200 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.142690' +generated_by: 'ExtUtils::MakeMaker version 7.1002, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -34,4 +34,5 @@ bugtracker: https://github.com/garu/Data-Printer/issues/ license: http://dev.perl.org/licenses/ repository: https://github.com/garu/Data-Printer -version: '0.38' +version: '0.39' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/README.md new/Data-Printer-0.39/README.md --- old/Data-Printer-0.38/README.md 2014-08-12 05:36:06.000000000 +0200 +++ new/Data-Printer-0.39/README.md 2017-04-15 18:43:56.000000000 +0200 @@ -61,7 +61,7 @@ ### LICENSE AND COPYRIGHT ### -Copyright (C) 2011 Breno G. de Oliveira +Copyright (C) 2011-2017 Breno G. de Oliveira This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/lib/Data/Printer/Filter.pm new/Data-Printer-0.39/lib/Data/Printer/Filter.pm --- old/Data-Printer-0.38/lib/Data/Printer/Filter.pm 2016-01-28 01:51:20.000000000 +0100 +++ new/Data-Printer-0.39/lib/Data/Printer/Filter.pm 2017-04-15 18:02:20.000000000 +0200 @@ -215,6 +215,12 @@ and use the results in your own return string - like when manipulating hashes or arrays. +=head2 np() + +This is the same as C<Data::Printer>'s np(). You can use this to throw some +data structures back at C<Data::Printer> and use the results in your own return +string - like when manipulating hashes or arrays. + =head2 newline() This helper returns a string using the linebreak as specified by the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/lib/Data/Printer.pm new/Data-Printer-0.39/lib/Data/Printer.pm --- old/Data-Printer-0.38/lib/Data/Printer.pm 2016-01-28 18:57:13.000000000 +0100 +++ new/Data-Printer-0.39/lib/Data/Printer.pm 2017-04-15 18:43:27.000000000 +0200 @@ -16,7 +16,7 @@ # Instead, we now require version in the VSTRING() method. # use version 0.77 (); -our $VERSION = '0.38'; +our $VERSION = '0.39'; BEGIN { if ($^O =~ /Win32/i) { @@ -366,12 +366,12 @@ -? # number can start with minus, but can't start with plus # is scalar starts with plus it is not number - [0-9-]+ # then there should be some numbers + [0-9]+ # then there should be some numbers ( \. [0-9]+ )? # there can be decimal part, which is optional ( e [+-] [0-9]+ )? # then there can be optional exponential notation part - $ + \z /x; return $is_number; @@ -2229,7 +2229,7 @@ =head1 LICENSE AND COPYRIGHT -Copyright 2011 Breno G. de Oliveira C<< <garu at cpan.org> >>. All rights reserved. +Copyright 2011-2017 Breno G. de Oliveira C<< <garu at cpan.org> >>. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<perlartistic>. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/t/27-pass_through.t new/Data-Printer-0.39/t/27-pass_through.t --- old/Data-Printer-0.38/t/27-pass_through.t 2015-05-30 01:16:07.000000000 +0200 +++ new/Data-Printer-0.39/t/27-pass_through.t 2017-04-15 18:02:20.000000000 +0200 @@ -18,11 +18,12 @@ ############## ### hashes ### ############## -my %foo = ( answer => 42 ); +my %foo = ( answer => 42, question => 24 ); my $expected = <<'EOT'; { - answer 42 + answer 42, + question 24 } EOT @@ -44,7 +45,7 @@ is $stdout, '', 'STDOUT should be empty after p() (hash, scalar)'; is $stderr, $expected, 'pass-through STDERR (hash, scalar)'; -like $return_scalar, qr{^1/\d+$}, 'pass-through return (hash scalar)'; +is $return_scalar, scalar %foo, 'pass-through return (hash scalar)'; ############## diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/t/27.2-pass_through.t new/Data-Printer-0.39/t/27.2-pass_through.t --- old/Data-Printer-0.38/t/27.2-pass_through.t 2014-08-12 05:36:06.000000000 +0200 +++ new/Data-Printer-0.39/t/27.2-pass_through.t 2017-04-15 18:02:20.000000000 +0200 @@ -18,11 +18,12 @@ ############## ### hashes ### ############## -my %foo = ( answer => 42 ); +my %foo = ( answer => 42, question => 24 ); my $expected = <<'EOT'; { - answer 42 + answer 42, + question 24 } EOT @@ -44,8 +45,7 @@ is $stdout, '', 'STDOUT should be empty after p() (hash, scalar)'; is $stderr, $expected, 'pass-through STDERR (hash, scalar)'; -like $return_scalar, qr{^1/\d+$}, 'pass-through return (hash scalar)'; - +is $return_scalar, scalar %foo, 'pass-through return (hash scalar)'; ############## ### arrays ### diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/t/27.3-pass_through-DDP.t new/Data-Printer-0.39/t/27.3-pass_through-DDP.t --- old/Data-Printer-0.38/t/27.3-pass_through-DDP.t 2014-08-12 05:36:06.000000000 +0200 +++ new/Data-Printer-0.39/t/27.3-pass_through-DDP.t 2017-04-15 18:02:20.000000000 +0200 @@ -18,11 +18,12 @@ ############## ### hashes ### ############## -my %foo = ( answer => 42 ); +my %foo = ( answer => 42, question => 24 ); my $expected = <<'EOT'; { - answer 42 + answer 42, + question 24 } EOT @@ -44,7 +45,7 @@ is $stdout, '', 'STDOUT should be empty after p() (hash, scalar)'; is $stderr, $expected, 'pass-through STDERR (hash, scalar)'; -like $return_scalar, qr{^1/\d+$}, 'pass-through return (hash scalar)'; +is $return_scalar, scalar %foo, 'pass-through return (hash scalar)'; ############## diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/t/27.4-pass_through-DDP.t new/Data-Printer-0.39/t/27.4-pass_through-DDP.t --- old/Data-Printer-0.38/t/27.4-pass_through-DDP.t 2014-08-12 05:36:06.000000000 +0200 +++ new/Data-Printer-0.39/t/27.4-pass_through-DDP.t 2017-04-15 18:02:20.000000000 +0200 @@ -18,11 +18,12 @@ ############## ### hashes ### ############## -my %foo = ( answer => 42 ); +my %foo = ( answer => 42, question => 24 ); my $expected = <<'EOT'; { - answer 42 + answer 42, + question 24 } EOT @@ -44,7 +45,7 @@ is $stdout, '', 'STDOUT should be empty after p() (hash, scalar)'; is $stderr, $expected, 'pass-through STDERR (hash, scalar)'; -like $return_scalar, qr{^1/\d+$}, 'pass-through return (hash scalar)'; +is $return_scalar, scalar %foo, 'pass-through return (hash scalar)'; ############## diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Printer-0.38/t/43-_is_number.t new/Data-Printer-0.39/t/43-_is_number.t --- old/Data-Printer-0.38/t/43-_is_number.t 2014-12-22 10:08:35.000000000 +0100 +++ new/Data-Printer-0.39/t/43-_is_number.t 2017-04-15 18:02:20.000000000 +0200 @@ -41,12 +41,26 @@ "NaN", "abc", '1_000', + '123\n', + "123\n", + '-', ); foreach my $not_a_number (@strings) { + + # If we don't change new line symbol then the test output will be messy: + # + # ok 20 - _is_number('1_000') return false + # ok 21 - _is_number('123 + # # ') return false + # 1..21 + + my $number_for_test_name = $not_a_number; + $number_for_test_name =~ s/\n/\\n/g; + ok( not(Data::Printer::_is_number($not_a_number)), - "_is_number('$not_a_number') return false", + "_is_number('$number_for_test_name') return false", ); }
