Hello community, here is the log from the commit of package perl-Data-Peek for openSUSE:Factory checked in at 2019-10-02 14:55:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Data-Peek (Old) and /work/SRC/openSUSE:Factory/.perl-Data-Peek.new.2352 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Peek" Wed Oct 2 14:55:26 2019 rev:16 rq:727222 version:0.48 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Data-Peek/perl-Data-Peek.changes 2017-10-09 19:48:20.691257705 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Data-Peek.new.2352/perl-Data-Peek.changes 2019-10-02 14:55:29.859349045 +0200 @@ -1,0 +2,6 @@ +Fri Aug 30 07:38:26 UTC 2019 - <[email protected]> + +- updated to 0.48 + see /usr/share/doc/packages/perl-Data-Peek/ChangeLog + +------------------------------------------------------------------- Old: ---- Data-Peek-0.47.tgz New: ---- Data-Peek-0.48.tgz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Data-Peek.spec ++++++ --- /var/tmp/diff_new_pack.pH1INU/_old 2019-10-02 14:55:31.695344228 +0200 +++ /var/tmp/diff_new_pack.pH1INU/_new 2019-10-02 14:55:31.703344207 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Data-Peek # -# 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-Data-Peek -Version: 0.47 +Version: 0.48 Release: 0 %define cpan_name Data-Peek -Summary: Collection of Low-Level Debug Facilities -License: Artistic-1.0 or GPL-1.0+ +Summary: Collection of low-level debug facilities +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl -Url: http://search.cpan.org/dist/Data-Peek/ +Url: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz Source1: cpanspec.yml BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -35,7 +35,7 @@ Requires: perl(Test::NoWarnings) Recommends: perl(Data::Dumper) >= 2.167 Recommends: perl(Perl::Tidy) -Recommends: perl(Test::More) >= 1.302086 +Recommends: perl(Test::More) >= 1.302125 %{perl_requires} %description @@ -48,11 +48,11 @@ %setup -q -n %{cpan_name}-%{version} %build -%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" -%{__make} %{?_smp_mflags} +perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" +make %{?_smp_mflags} %check -%{__make} test +make test %install %perl_make_install ++++++ Data-Peek-0.47.tgz -> Data-Peek-0.48.tgz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.47/ChangeLog new/Data-Peek-0.48/ChangeLog --- old/Data-Peek-0.47/ChangeLog 2017-07-24 14:18:51.000000000 +0200 +++ new/Data-Peek-0.48/ChangeLog 2018-02-26 16:36:09.000000000 +0100 @@ -1,3 +1,10 @@ +0.48 - 2018-02-26, H.Merijn Brand <[email protected]> + * Some doc cleanup + * It's 2018 + * DDump now defaults to $_ + * DP shortcut uses strict + * Remove META.yml from MANIFEST.skip + 0.47 - 2017-07-24, H.Merijn Brand <[email protected]> * It's 2017 * Update ppport.h to Devel::PPPort-3.36 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.47/META.json new/Data-Peek-0.48/META.json --- old/Data-Peek-0.47/META.json 2017-07-25 15:45:20.000000000 +0200 +++ new/Data-Peek-0.48/META.json 2018-02-26 16:37:26.000000000 +0100 @@ -1,38 +1,43 @@ { - "meta-spec" : { - "version" : 2, - "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec"; - }, - "release_status" : "stable", - "version" : "0.47", - "license" : [ - "perl_5" - ], - "provides" : { - "Data::Peek" : { - "version" : "0.47", - "file" : "Peek.pm" - } - }, - "name" : "Data-Peek", - "dynamic_config" : 1, - "abstract" : "Modified and extended debugging facilities", "resources" : { - "license" : [ - "http://dev.perl.org/licenses/"; - ], "repository" : { "type" : "git", "web" : "https://github.com/Tux/Data-Peek";, "url" : "https://github.com/Tux/Data-Peek"; }, + "license" : [ + "http://dev.perl.org/licenses/"; + ], "x_IRC" : "irc://irc.perl.org/#csv" }, + "release_status" : "stable", + "abstract" : "Modified and extended debugging facilities", + "author" : [ + "H.Merijn Brand <[email protected]>" + ], + "meta-spec" : { + "version" : 2, + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec"; + }, "generated_by" : "Author", + "name" : "Data-Peek", + "provides" : { + "Data::Peek" : { + "version" : "0.48", + "file" : "Peek.pm" + } + }, + "version" : "0.48", "prereqs" : { - "configure" : { + "runtime" : { "requires" : { - "ExtUtils::MakeMaker" : "0" + "Data::Dumper" : "0", + "DynaLoader" : "0", + "perl" : "5.008" + }, + "recommends" : { + "Perl::Tidy" : "0", + "Data::Dumper" : "2.167" } }, "build" : { @@ -40,28 +45,23 @@ "perl" : "5.008" } }, - "runtime" : { + "configure" : { "requires" : { - "perl" : "5.008", - "DynaLoader" : "0", - "Data::Dumper" : "0" - }, - "recommends" : { - "Perl::Tidy" : "0", - "Data::Dumper" : "2.167" + "ExtUtils::MakeMaker" : "0" } }, "test" : { - "recommends" : { - "Test::More" : "1.302086" - }, "requires" : { "Test::More" : "0.88", "Test::NoWarnings" : "0" + }, + "recommends" : { + "Test::More" : "1.302125" } } }, - "author" : [ - "H.Merijn Brand <[email protected]>" + "dynamic_config" : 1, + "license" : [ + "perl_5" ] } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.47/META.yml new/Data-Peek-0.48/META.yml --- old/Data-Peek-0.47/META.yml 2017-07-25 15:45:20.000000000 +0200 +++ new/Data-Peek-0.48/META.yml 2018-02-26 16:37:26.000000000 +0100 @@ -16,11 +16,11 @@ provides: Data::Peek: file: Peek.pm - version: '0.47' + version: '0.48' recommends: Data::Dumper: '2.167' Perl::Tidy: 0 - Test::More: '1.302086' + Test::More: '1.302125' requires: Data::Dumper: 0 DynaLoader: 0 @@ -31,4 +31,4 @@ IRC: irc://irc.perl.org/#csv license: http://dev.perl.org/licenses/ repository: https://github.com/Tux/Data-Peek -version: '0.47' +version: '0.48' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.47/Makefile.PL new/Data-Peek-0.48/Makefile.PL --- old/Data-Peek-0.47/Makefile.PL 2017-07-24 13:59:06.000000000 +0200 +++ new/Data-Peek-0.48/Makefile.PL 2018-02-26 16:08:16.000000000 +0100 @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Copyright PROCURA B.V. (c) 2008-2017 H.Merijn Brand +# Copyright PROCURA B.V. (c) 2008-2018 H.Merijn Brand require 5.008; # <- also see postamble at the bottom for META.yml use strict; @@ -33,9 +33,20 @@ $ExtUtils::MakeMaker::VERSION > 6.30 and $wm{LICENSE} = "perl"; unless (exists $ENV{AUTOMATED_TESTING} and $ENV{AUTOMATED_TESTING} == 1) { - if (prompt ("Do you want to install module DP as a shortcut for Data::Peek ?", "y") =~ m/[yY]/) { + my $dp_ok = 1; + eval { + require DP; + $dp_ok = 0; + if ($INC{"DP.pm"} and open my $fh, "<", $INC{"DP.pm"}) { + my $line1 = <$fh>; + $line1 =~ m/^use Data::Peek;/ and $dp_ok = 1; + close $fh; + } + }; + + if ($dp_ok and prompt ("Do you want to install module DP as a shortcut for Data::Peek ?", "y") =~ m/[yY]/) { local $/; - open my $pm, "<", "Peek.pm" or die "CAnnot read Peek.pm: $!\n"; + open my $pm, "<", "Peek.pm" or die "Cannot read Peek.pm: $!\n"; my $vsn = do { <$pm> =~ m/^\$VERSION\s*=\s*"([0-9._]+)/m; $1 }; close $pm; @@ -114,8 +125,11 @@ __END__ use Data::Peek; +use strict; +use warnings; + BEGIN { *DP:: = \%Data::Peek:: } -$VERSION = ::VERSION::; +our $VERSION = ::VERSION::; 1; @@ -137,7 +151,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2008-2014 H.Merijn Brand +Copyright (C) 2008-2018 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.47/Peek.pm new/Data-Peek-0.48/Peek.pm --- old/Data-Peek-0.47/Peek.pm 2017-02-28 18:11:17.000000000 +0100 +++ new/Data-Peek-0.48/Peek.pm 2018-02-26 15:54:45.000000000 +0100 @@ -6,7 +6,7 @@ use DynaLoader (); use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK ); -$VERSION = "0.47"; +$VERSION = "0.48"; @ISA = qw( DynaLoader Exporter ); @EXPORT = qw( DDumper DTidy DDsort DPeek DDisplay DDump DHexDump DDual DGrow ); @@ -58,15 +58,13 @@ my $_sortkeys = 1; our $_perltidy = 0; -sub DDsort -{ +sub DDsort { @_ or return; $_sortkeys = exists $sk{$_[0]} ? $sk{$_[0]} : $_[0]; } # DDsort -sub import -{ +sub import { my @exp = @_; my @etl; foreach my $p (@exp) { @@ -82,8 +80,7 @@ __PACKAGE__->export_to_level (1, @etl); } # import -sub DDumper -{ +sub DDumper { $_perltidy and goto \&DTidy; local $Data::Dumper::Sortkeys = $_sortkeys; @@ -104,8 +101,7 @@ return $s; } # DDumper -sub DTidy -{ +sub DTidy { $has_perltidy or goto \&DDumper; local $Data::Dumper::Sortkeys = $_sortkeys; @@ -137,8 +133,7 @@ ### ############# DDump () #################################################### -sub _DDump_ref -{ +sub _DDump_ref { my (undef, $down) = (@_, 0); my $ref = ref $_[0]; @@ -164,8 +159,7 @@ undef; } # _DDump_ref -sub _DDump -{ +sub _DDump { my (undef, $down, $dump, $fh) = (@_, ""); if ($has_perlio and open $fh, ">", \$dump) { @@ -181,10 +175,9 @@ return $dump; } # _DDump -sub DDump ($;$) -{ - my (undef, $down) = (@_, 0); - my @dump = split m/[\r\n]+/, _DDump ($_[0], wantarray || $down) or return; +sub DDump (;$$) { + my $down = @_ > 1 ? $_[1] : 0; + my @dump = split m/[\r\n]+/, _DDump (@_ ? $_[0] : $_, wantarray || $down) or return; if (wantarray) { my %hash; @@ -208,8 +201,7 @@ warn $dump; } # DDump -sub DHexDump -{ +sub DHexDump { use bytes; my $off = 0; my @out; @@ -302,7 +294,7 @@ * arrows for hashes are aligned at 16 (longer keys don't align) * closing braces and brackets are now correctly aligned -In void context, C<DDumper ()> warn ()'s. +In void context, C<DDumper> C<warn>'s. Example @@ -371,8 +363,8 @@ =head2 DPeek ($var) -Playing with C<sv_dump ()>, I found C<Perl_sv_peek ()>, and it might be -very useful for simple checks. If C<$var> is omitted, uses $_. +Playing with C<sv_dump>, I found C<Perl_sv_peek>, and it might be very +useful for simple checks. If C<$var> is omitted, uses $_. Example @@ -380,7 +372,7 @@ PV("abc\nde\342\202\254fg"\0) [UTF8 "abc\nde\x{20ac}fg"] -In void context, C<DPeek ()> prints to C<STDERR> plus a newline. +In void context, C<DPeek> prints to C<STDERR> plus a newline. =head2 DDisplay @@ -388,9 +380,9 @@ Show the PV content of a scalar the way perl debugging would have done. UTF-8 detection is on, so this is effectively the same as returning the -first part the C<DPeek ()> returns for non-UTF8 PV's or the second part -for UTF-8 PV's. C<DDisplay ()> returns the empty string for scalars that -no have a valid PV. +first part the C<DPeek> returns for non-UTF8 PV's or the second part for +UTF-8 PV's. C<DDisplay> returns the empty string for scalars that no +have a valid PV. Example @@ -398,7 +390,7 @@ "abc\nde\x{20ac}fg" -In void context, C<DDisplay ()> uses C<warn> to display the result. +In void context, C<DDisplay> uses C<warn> to display the result. =head2 DHexDump @@ -466,13 +458,13 @@ =head2 my $tp = triplevar ($pv, $iv, $nv) -When making C<DDual ()> I wondered if it were possible to create triple-val -scalar variables. L<Scalar::Util> already gives us C<dualvar ()>, that creates +When making C<DDual> I wondered if it were possible to create triple-val +scalar variables. L<Scalar::Util> already gives us C<dualvar>, that creates you a scalar with different numeric and string values that return different -values in different context. Not that C<triplevar ()> would be very useful, -compared to C<dualvar ()>, but at least this shows that it is possible. +values in different context. Not that C<triplevar> would be very useful, +compared to C<dualvar>, but at least this shows that it is possible. -C<triplevar ()> is not exported by default. +C<triplevar> is not exported by default. Example: @@ -485,21 +477,23 @@ SV_UNDEF IV(0) -=head2 DDump ($var [, $dig_level]) +=head2 DDump ([$var [, $dig_level]]) A very useful module when debugging is C<Devel::Peek>, but is has one big disadvantage: it only prints to STDERR, which is not very handy when your code wants to inspect variables at a low level. -Perl itself has C<sv_dump ()>, which does something similar, but still -prints to STDERR, and only one level deep. +Perl itself has C<sv_dump>, which does something similar, but still prints +to STDERR, and only one level deep. + +C<DDump> is an attempt to make the innards available to the script level +with a reasonable level of compatibility. C<DDump> is context sensitive. -C<DDump ()> is an attempt to make the innards available to the script level -with a reasonable level of compatibility. C<DDump ()> is context sensitive. +In void context, it behaves exactly like C<Perl_sv_dump>. -In void context, it behaves exactly like C<Perl_sv_dump ()>. +In scalar context, it returns what C<Perl_sv_dump> would have printed. -In scalar context, it returns what C<Perl_sv_dump ()> would have printed. +The default for the first argument is C<$_>. In list context, it returns a hash of the variable's properties. In this mode you can pass an optional second argument that determines the depth of digging. @@ -591,7 +585,7 @@ =head2 DDump_IO ($io, $var [, $dig_level]) -A wrapper function around perl's internal C<Perl_do_sv_dump ()>, which +A wrapper function around perl's internal C<Perl_do_sv_dump>, which makes C<Devel::Peek> completely superfluous. Example @@ -661,18 +655,18 @@ =head1 INTERNALS -C<DDump ()> uses an XS wrapper around C<Perl_sv_dump ()> where the -STDERR is temporarily caught to a pipe. The internal XS helper functions -are not meant for user space +C<DDump> uses an XS wrapper around C<Perl_sv_dump> where the STDERR is +temporarily caught to a pipe. The internal XS helper functions are not +meant for user space =head2 DDump_XS (SV *sv) -Base interface to internals for C<DDump ()>. +Base interface to internals for C<DDump>. =head1 BUGS Windows and AIX might be using a build where not all symbols that were -supposed to be exported in the public API are not. Perl_pv_peek () is +supposed to be exported in the public API are not. C<Perl_pv_peek> is one of them. Not all types of references are supported. @@ -691,7 +685,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2008-2017 H.Merijn Brand +Copyright (C) 2008-2018 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.47/Peek.xs new/Data-Peek-0.48/Peek.xs --- old/Data-Peek-0.47/Peek.xs 2017-07-24 14:16:34.000000000 +0200 +++ new/Data-Peek-0.48/Peek.xs 2018-02-26 15:27:44.000000000 +0100 @@ -1,4 +1,4 @@ -/* Copyright (c) 2008-2017 H.Merijn Brand. All rights reserved. +/* Copyright (c) 2008-2018 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.47/README new/Data-Peek-0.48/README --- old/Data-Peek-0.47/README 2017-02-28 18:11:23.000000000 +0100 +++ new/Data-Peek-0.48/README 2018-01-01 14:25:36.000000000 +0100 @@ -56,7 +56,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (c) 2008-2017 H.Merijn Brand. All rights reserved. +Copyright (c) 2008-2018 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.47/t/30_DDump-s.t new/Data-Peek-0.48/t/30_DDump-s.t --- old/Data-Peek-0.47/t/30_DDump-s.t 2014-09-27 13:22:31.000000000 +0200 +++ new/Data-Peek-0.48/t/30_DDump-s.t 2018-02-26 16:23:06.000000000 +0100 @@ -4,7 +4,7 @@ use warnings; # I would like more tests, but contents change over every perl version -use Test::More tests => 6; +use Test::More tests => 7; use Test::NoWarnings; use Data::Peek; @@ -27,8 +27,16 @@ my ($in, $expect) = split m/\n--\n/ => $test; $in eq "" and next; SKIP: { - eval "\$var = $in;"; - my $dump = DDump ($var); + my $dump; + if ($in eq "DEFSV") { + $_ = undef; + $_ = "DEFSV"; + $dump = DDump; + } + else { + eval "\$var = $in;"; + $dump = DDump ($var); + } if ($in =~ m/20ac/) { if ($] < 5.008) { @@ -56,12 +64,11 @@ $in =~ s/[\s\n]+/ /g; - my @match = grep { $dump eq $_ } @expect; - if (@match == 1) { + if (my @match = grep { $dump eq $_ } @expect) { is ($dump, $match[0], "DDump ($in)"); } else { - my $match = shift @expect; + my $match = pop @expect; is ($dump, $match, "DDump ($in)"); diag ("DDump ($in) neither matches\n$_") for @expect; } @@ -161,3 +168,20 @@ CUR = 0 LEN = 8 COW_REFCNT = 0 +== +DEFSV +-- +SV = PV(0x****) at 0x**** + REFCNT = 1 + FLAGS = (POK,pPOK) + PV = 0x**** "DEFSV"\0 + CUR = 5 + LEN = 8 +| # as of 5.19.3 +SV = PV(0x****) at 0x**** + REFCNT = 1 + FLAGS = (POK,IsCOW,pPOK) + PV = 0x**** "DEFSV"\0 + CUR = 5 + LEN = 8 + COW_REFCNT = 1
