Hello community, here is the log from the commit of package perl-Data-Peek for openSUSE:Factory checked in at 2015-08-28 08:27:25 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Data-Peek (Old) and /work/SRC/openSUSE:Factory/.perl-Data-Peek.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Peek" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Data-Peek/perl-Data-Peek.changes 2014-03-09 18:37:20.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Data-Peek.new/perl-Data-Peek.changes 2015-08-28 08:27:50.000000000 +0200 @@ -1,0 +2,6 @@ +Thu Aug 27 13:20:18 UTC 2015 - [email protected] + +- updated to 0.44 + * bug fixes, a. o. to make it build on recent perl + +------------------------------------------------------------------- Old: ---- Data-Peek-0.40.tgz New: ---- Data-Peek-0.44.tgz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Data-Peek.spec ++++++ --- /var/tmp/diff_new_pack.QU8bJ6/_old 2015-08-28 08:27:51.000000000 +0200 +++ /var/tmp/diff_new_pack.QU8bJ6/_new 2015-08-28 08:27:51.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Data-Peek -Version: 0.40 +Version: 0.44 Release: 0 %define cpan_name Data-Peek Summary: A collection of low-level debug facilities ++++++ Data-Peek-0.40.tgz -> Data-Peek-0.44.tgz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.40/ChangeLog new/Data-Peek-0.44/ChangeLog --- old/Data-Peek-0.40/ChangeLog 2014-02-27 09:03:40.000000000 +0100 +++ new/Data-Peek-0.44/ChangeLog 2015-03-25 11:21:19.000000000 +0100 @@ -1,3 +1,17 @@ +0.44 - 2015-03-25, H.Merijn Brand <[email protected]> + * DDisplay in void context consistency + +0.43 - 2015-02-11, H.Merijn Brand <[email protected]> + * Move repo to github + * Remove perl recommendation from META as it breaks cpan clients + +0.42 - 2015-01-02, H.Merijn Brand <[email protected]> + * Prevent caching of .perltidyrc (RT#99514) + * Upped copyright to 2015 + +0.41 - 2014-09-27, H.Merijn Brand <[email protected]> + * Add alternative test results for 5.21.5 and up (PADMY) + 0.40 - 2014-02-27, H.Merijn Brand <[email protected]> * Upped copyright to 2014 * Guard Perl::Tidy against stupid user options in .perltidyrc diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.40/META.json new/Data-Peek-0.44/META.json --- old/Data-Peek-0.40/META.json 2014-02-27 10:10:12.000000000 +0100 +++ new/Data-Peek-0.44/META.json 2015-03-25 11:24:19.000000000 +0100 @@ -1,52 +1,33 @@ { - "dynamic_config" : 1, - "resources" : { - "repository" : { - "web" : "http://repo.or.cz/w/Data-Peek.git";, - "type" : "git", - "url" : "http://repo.or.cz/r/Data-Peek.git"; - }, - "license" : [ - "http://dev.perl.org/licenses/"; - ] - }, "abstract" : "Modified and extended debugging facilities", - "author" : [ - "H.Merijn Brand <[email protected]>" - ], - "version" : "0.40", - "generated_by" : "Author", - "release_status" : "stable", - "provides" : { - "Data::Peek" : { - "file" : "Peek.pm", - "version" : "0.40" - } - }, "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, "version" : "2" }, - "license" : [ - "perl_5" - ], + "release_status" : "stable", "name" : "Data-Peek", + "generated_by" : "Author", + "provides" : { + "Data::Peek" : { + "version" : "0.44", + "file" : "Peek.pm" + } + }, "prereqs" : { - "build" : { + "runtime" : { + "recommends" : { + "Data::Dumper" : "2.154", + "Perl::Tidy" : "0" + }, "requires" : { - "perl" : "5.008" + "perl" : "5.008", + "Data::Dumper" : "0", + "DynaLoader" : "0" } }, - "runtime" : { + "build" : { "requires" : { - "DynaLoader" : "0", - "Data::Dumper" : "0", "perl" : "5.008" - }, - "recommends" : { - "perl" : "5.018001", - "Perl::Tidy" : "0", - "Data::Dumper" : "2.145" } }, "configure" : { @@ -55,13 +36,32 @@ } }, "test" : { - "recommends" : { - "Test::More" : "1.001002" - }, "requires" : { "Test::NoWarnings" : "0", "Test::More" : "0.88" + }, + "recommends" : { + "Test::More" : "1.001014" } } - } + }, + "version" : "0.44", + "resources" : { + "license" : [ + "http://dev.perl.org/licenses/"; + ], + "repository" : { + "url" : "https://github.com/Tux/Data-Peek";, + "type" : "git", + "web" : "https://github.com/Tux/Data-Peek"; + }, + "x_IRC" : "irc://irc.perl.org/#csv" + }, + "author" : [ + "H.Merijn Brand <[email protected]>" + ], + "license" : [ + "perl_5" + ], + "dynamic_config" : 1 } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.40/META.yml new/Data-Peek-0.44/META.yml --- old/Data-Peek-0.40/META.yml 2014-02-27 10:10:12.000000000 +0100 +++ new/Data-Peek-0.44/META.yml 2015-03-25 11:24:19.000000000 +0100 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: Author, CPAN::Meta::Converter version 2.133380 +generated_by: Author, CPAN::Meta::Converter version 2.150001 license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -16,12 +16,11 @@ provides: Data::Peek: file: Peek.pm - version: '0.40' + version: '0.44' recommends: - Data::Dumper: '2.145' + Data::Dumper: '2.154' Perl::Tidy: 0 - Test::More: '1.001002' - perl: '5.018001' + Test::More: '1.001014' requires: Data::Dumper: 0 DynaLoader: 0 @@ -29,6 +28,7 @@ Test::NoWarnings: 0 perl: '5.008' resources: + IRC: irc://irc.perl.org/#csv license: http://dev.perl.org/licenses/ - repository: http://repo.or.cz/r/Data-Peek.git -version: '0.40' + repository: https://github.com/Tux/Data-Peek +version: '0.44' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.40/Makefile.PL new/Data-Peek-0.44/Makefile.PL --- old/Data-Peek-0.40/Makefile.PL 2014-01-01 12:53:34.000000000 +0100 +++ new/Data-Peek-0.44/Makefile.PL 2015-01-01 13:46:24.000000000 +0100 @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Copyright PROCURA B.V. (c) 2008-2014 H.Merijn Brand +# Copyright PROCURA B.V. (c) 2008-2015 H.Merijn Brand require 5.008; # <- also see postamble at the bottom for META.yml use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.40/Peek.pm new/Data-Peek-0.44/Peek.pm --- old/Data-Peek-0.40/Peek.pm 2014-02-27 09:29:02.000000000 +0100 +++ new/Data-Peek-0.44/Peek.pm 2015-03-25 11:21:11.000000000 +0100 @@ -6,7 +6,7 @@ use DynaLoader (); use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK ); -$VERSION = "0.40"; +$VERSION = "0.44"; @ISA = qw( DynaLoader Exporter ); @EXPORT = qw( DDumper DTidy DDsort DPeek DDisplay DDump DHexDump DDual DGrow ); @@ -124,6 +124,8 @@ "--no-check-syntax", "--no-standard-output", "--no-warning-output", + # RT#99514 - Perl::Tidy memoizes .perltidyrc incorrectly + "--no-memoize", ]); $s = $t; @@ -394,6 +396,8 @@ "abc\nde\x{20ac}fg" +In void context, C<DDisplay ()> uses C<warn> to display the result. + =head2 DHexDump =head2 DHexDump ($var) @@ -685,7 +689,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2008-2014 H.Merijn Brand +Copyright (C) 2008-2015 H.Merijn Brand This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.40/Peek.xs new/Data-Peek-0.44/Peek.xs --- old/Data-Peek-0.40/Peek.xs 2014-01-01 12:53:47.000000000 +0100 +++ new/Data-Peek-0.44/Peek.xs 2015-03-25 11:22:21.000000000 +0100 @@ -1,4 +1,4 @@ -/* Copyright (c) 2008-2014 H.Merijn Brand. All rights reserved. +/* Copyright (c) 2008-2015 H.Merijn Brand. All rights reserved. * This program is free software; you can redistribute it and/or * modify it under the same terms as Perl itself. */ @@ -79,13 +79,15 @@ DDisplay (...) PROTOTYPE: ;$ PPCODE: - SV *sv = items ? ST (0) : DEFSV; - SV *dsp = newSVpv ("", 0); + I32 gimme = GIMME_V; + SV *sv = items ? ST (0) : DEFSV; + SV *dsp = newSVpv ("", 0); if (SvPOK (sv) || SvPOKp (sv)) pv_pretty (dsp, SvPVX (sv), SvCUR (sv), 0, NULL, NULL, (PERL_PV_PRETTY_DUMP | PERL_PV_ESCAPE_UNI_DETECT)); ST (0) = dsp; + if (gimme == G_VOID) warn ("%s\n", SvPVX (ST (0))); XSRETURN (1); /* XS DDisplay */ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.40/README new/Data-Peek-0.44/README --- old/Data-Peek-0.40/README 2014-01-01 12:53:52.000000000 +0100 +++ new/Data-Peek-0.44/README 2015-02-11 12:31:15.000000000 +0100 @@ -39,16 +39,16 @@ $ make install Recent changes can be (re)viewed in the public GIT repository at -http://repo.or.cz/w/Data-Peek.git +https://github.com/Tux/Data-Peek Feel free to clone your own copy: - $ git clone http://repo.or.cz/r/Data-Peek.git Data-Peek + $ git clone https://github.com/Tux/Data-Peek Data-Peek or get it as a tgz: $ wget --output-document=Data-Peek-git.tgz \ - 'http://repo.or.cz/w/Data-Peek.git?a=snapshot;sf=tgz' + https://github.com/Tux/Data-Peek/archive/master.tar.gz =head1 AUTHOR @@ -56,7 +56,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (c) 2008-2014 H.Merijn Brand. All rights reserved. +Copyright (c) 2008-2015 H.Merijn Brand. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.40/t/30_DDump-s.t new/Data-Peek-0.44/t/30_DDump-s.t --- old/Data-Peek-0.40/t/30_DDump-s.t 2013-08-17 17:12:16.000000000 +0200 +++ new/Data-Peek-0.44/t/30_DDump-s.t 2014-09-27 13:22:31.000000000 +0200 @@ -52,7 +52,7 @@ $dump =~ s/\bUV = /IV = /g if $] < 5.008; $dump =~ s/,?\bIsUV\b//g if $] < 5.008; - my @expect = split m/(?<=\n)\|\n+/ => $expect; + my @expect = split m/(?<=\n)\|(?:\s*#.*)?\n+/ => $expect; $in =~ s/[\s\n]+/ /g; @@ -79,11 +79,16 @@ PV = 0x**** ""\0 CUR = 0 LEN = 8 -| +| # as of 5.19.3 SV = PV(0x****) at 0x**** REFCNT = 1 FLAGS = (PADMY) PV = 0 +| # as of 5.21.5 +SV = PV(0x****) at 0x**** + REFCNT = 1 + FLAGS = () + PV = 0 == 0 -- @@ -94,12 +99,18 @@ PV = 0x**** ""\0 CUR = 0 LEN = 8 -| +| # as of 5.19.3 SV = PVIV(0x****) at 0x**** REFCNT = 1 FLAGS = (PADMY,IOK,pIOK) IV = 0 PV = 0 +| # as of 5.21.5 +SV = PVIV(0x****) at 0x**** + REFCNT = 1 + FLAGS = (IOK,pIOK) + IV = 0 + PV = 0 == 1 -- @@ -110,12 +121,18 @@ PV = 0x**** ""\0 CUR = 0 LEN = 8 -| +| # as of 5.19.3 SV = PVIV(0x****) at 0x**** REFCNT = 1 FLAGS = (PADMY,IOK,pIOK) IV = 1 PV = 0 +| # as of 5.21.5 +SV = PVIV(0x****) at 0x**** + REFCNT = 1 + FLAGS = (IOK,pIOK) + IV = 1 + PV = 0 == "" -- @@ -126,12 +143,21 @@ PV = 0x**** ""\0 CUR = 0 LEN = 8 -| +| # as of 5.19.3 SV = PVIV(0x****) at 0x**** REFCNT = 1 FLAGS = (PADMY,POK,IsCOW,pPOK) IV = 1 PV = 0x**** ""\0 CUR = 0 + LEN = 8 + COW_REFCNT = 0 +| # as of 5.21.5 +SV = PVIV(0x****) at 0x**** + REFCNT = 1 + FLAGS = (POK,IsCOW,pPOK) + IV = 1 + PV = 0x**** ""\0 + CUR = 0 LEN = 8 COW_REFCNT = 0
