Hello community, here is the log from the commit of package perl-Data-Peek for openSUSE:Factory checked in at 2012-06-01 07:22:29 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Data-Peek (Old) and /work/SRC/openSUSE:Factory/.perl-Data-Peek.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Peek", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Data-Peek/perl-Data-Peek.changes 2011-11-21 12:38:32.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Data-Peek.new/perl-Data-Peek.changes 2012-06-01 07:22:37.000000000 +0200 @@ -1,0 +2,7 @@ +Fri May 25 03:39:27 UTC 2012 - [email protected] + +- update to 0.37 + * Upped copyright to 2012 + * Allow length for DHexDump () + +------------------------------------------------------------------- Old: ---- Data-Peek-0.36.tgz New: ---- Data-Peek-0.37.tgz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Data-Peek.spec ++++++ --- /var/tmp/diff_new_pack.Cs8jG7/_old 2012-06-01 07:22:38.000000000 +0200 +++ /var/tmp/diff_new_pack.Cs8jG7/_new 2012-06-01 07:22:38.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Data-Peek # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,13 +16,12 @@ # - Name: perl-Data-Peek -Version: 0.36 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 0.37 +Release: 0 %define cpan_name Data-Peek Summary: A collection of low-level debug facilities +License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Data-Peek/ Source: http://www.cpan.org/authors/id/H/HM/HMBRAND/Data-Peek-%{version}.tgz ++++++ Data-Peek-0.36.tgz -> Data-Peek-0.37.tgz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.36/ChangeLog new/Data-Peek-0.37/ChangeLog --- old/Data-Peek-0.36/ChangeLog 2011-09-07 18:01:27.000000000 +0200 +++ new/Data-Peek-0.37/ChangeLog 2012-04-16 18:09:39.000000000 +0200 @@ -1,112 +1,96 @@ -2011-09-07 0.36 - H.Merijn Brand <[email protected]> +0.37 2012-04-16, H.Merijn Brand <[email protected]> + * Upped copyright to 2012 + * Allow length for DHexDump () +0.36 2011-09-07, H.Merijn Brand <[email protected]> * NAME / DISTNAME in Makefile.PL -2011-09-07 0.35 - H.Merijn Brand <[email protected]> - +0.35 2011-09-07, H.Merijn Brand <[email protected]> * More cross-checks for META data -2011-09-01 0.34 - H.Merijn Brand <[email protected]> - +0.34 2011-09-01, H.Merijn Brand <[email protected]> * Tests require Test::More-0.88 or up (RT#70538) * Tested on perl-5.14.1 and 5.15.1 -2011-02-16 0.33 - H.Merijn Brand <[email protected]> - +0.33 2011-02-16, H.Merijn Brand <[email protected]> * Added DTidy (): stream DDumper output through Perl::Tidy * Upped copyright to 2011 -2010-11-21 0.32 - H.Merijn Brand <[email protected]> - +0.32 2010-11-21, H.Merijn Brand <[email protected]> * Require perl 5.8.0 * DGrow tests for bigger gap * Spell checking * Add DHexDump () -2010-03-16 0.31 - H.Merijn Brand <[email protected]> - +0.31 2010-03-16, H.Merijn Brand <[email protected]> * Dropped YAML spec to 1.0 -2010-02-14 0.30 - H.Merijn Brand <[email protected]> - +0.30 2010-02-14, H.Merijn Brand <[email protected]> * Use $Data::Dumper::Quotekeys = 0; instead of removing the quotes myself * Put first hash element after opening lonely brace * Upped copyright to 2010 * Use warn () instead of print STDERR -2009-11-09 0.29 - H.Merijn Brand <[email protected]> - +0.29 2009-11-09, H.Merijn Brand <[email protected]> * Use skip instead of skip_all for builds that have no DPeek () * Be more lenient towards the allocated space -2009-11-06 0.28 - H.Merijn Brand <[email protected]> - +0.28 2009-11-06, H.Merijn Brand <[email protected]> * DDump () now dumps the variable itself, instead of a copy (Zefram) * Add DGrow () -2009-06-03 0.27 - H.Merijn Brand <[email protected]> - +0.27 2009-06-03, H.Merijn Brand <[email protected]> * void context behaviour for DPeek () * void context behaviour for DDual () -2009-06-03 0.26 - H.Merijn Brand <[email protected]> - +0.26 2009-06-03, H.Merijn Brand <[email protected]> * Upped copyright to 2009 * Corrected paren placement for bless (...) * Documentation fixes * Added Test::NoWarnings * Added DDsort () -2008-11-24 0.25 - H.Merijn Brand <[email protected]> - +0.25 2008-11-24, H.Merijn Brand <[email protected]> * Wrong e-mail in META.yml * #34831 fixed tied $, -2008-10-31 0.24 - H.Merijn Brand <[email protected]> - +0.24 2008-10-31, H.Merijn Brand <[email protected]> * Implement DDisplay () * Implement triplevar () * Update ppport.h to 3.14_05 (mhx++) * 5.6.x DDisplay ()'s UTF8 different * make leaktest/leakcheck enabled and executed -2008-10-21 0.23 - H.Merijn Brand <[email protected]> - +0.23 2008-10-21, H.Merijn Brand <[email protected]> * Selecting to install DP did not install Data::Peek -2008-10-20 0.22 - H.Merijn Brand <[email protected]> - +0.22 2008-10-20, H.Merijn Brand <[email protected]> * Updated to ppport-3.14_01 * YAML declared 1.4 (META.yml) instead of 1.1 (YAML) * DP.pm gets version from Peek.pm * DP.pm should not be installed in Data namespace -2008-10-13 0.21 - H.Merijn Brand <[email protected]> - +0.21 2008-10-13, H.Merijn Brand <[email protected]> * Typo in pod (Joshua Juran) * MSwin doesn't use plain \n (RT#39916) * Some MSWin (ActivePerl) and AIX builds do not have Perl_sv_peek () exported (RT#39916) -2008-10-08 0.20 - H.Merijn Brand <[email protected]> - +0.20 2008-10-08, H.Merijn Brand <[email protected]> * Renamed DDumper to Data::Peek * Default argument for DPeek is $_ * Optionally install DP as shortcut for Data::Peek * Public git repo set up -2008-10-07 0.16 - H.Merijn Brand <[email protected]> - +0.16 2008-10-07, H.Merijn Brand <[email protected]> * Allocated length for PV's depends on arch (upped test to 8) * Released on Amsterdam.pm -2008-09-26 0.15 - H.Merijn Brand <[email protected]> - +0.15 2008-09-26, H.Merijn Brand <[email protected]> * Start writing tests for DDump () * Added DDual () -2008-09-25 0.11 - H.Merijn Brand <[email protected]> - +0.11 2008-09-25, H.Merijn Brand <[email protected]> * PerlIO is only available in 5.8 and up * Perl 5.6 is a minimal requirement for 'use warnings' * Tests for DPeek () @@ -116,6 +100,5 @@ * Doc changes * In void context DDumper prints to STDERR -2008-09-24 0.10 - H.Merijn Brand <[email protected]> - +0.10 2008-09-24, H.Merijn Brand <[email protected]> * Initial attempt diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.36/META.json new/Data-Peek-0.37/META.json --- old/Data-Peek-0.36/META.json 2011-09-07 18:13:35.000000000 +0200 +++ new/Data-Peek-0.37/META.json 2012-04-16 18:34:34.000000000 +0200 @@ -14,7 +14,7 @@ }, "distribution_type" : "module", "generated_by" : "Author", - "version" : "0.36", + "version" : "0.37", "name" : "Data-Peek", "author" : [ "H.Merijn Brand <[email protected]>" @@ -25,7 +25,7 @@ }, "provides" : { "Data::Peek" : { - "version" : "0.36", + "version" : "0.37", "file" : "Peek.pm" } }, @@ -36,7 +36,7 @@ }, "recommends" : { "Test::More" : "0.98", - "perl" : "5.014001", + "perl" : "5.014002", "Perl::Tidy" : "0" }, "abstract" : "Modified and extended debugging facilities", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.36/META.yml new/Data-Peek-0.37/META.yml --- old/Data-Peek-0.36/META.yml 2011-09-07 18:13:35.000000000 +0200 +++ new/Data-Peek-0.37/META.yml 2012-04-16 18:34:34.000000000 +0200 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Data-Peek -version: 0.36 +version: 0.37 abstract: Modified and extended debugging facilities license: perl author: @@ -10,7 +10,7 @@ provides: Data::Peek: file: Peek.pm - version: 0.36 + version: 0.37 requires: perl: 5.008 DynaLoader: 0 @@ -24,7 +24,7 @@ Test::More: 0.88 Test::NoWarnings: 0 recommends: - perl: 5.014001 + perl: 5.014002 Perl::Tidy: 0 Test::More: 0.98 resources: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Peek-0.36/Makefile.PL new/Data-Peek-0.37/Makefile.PL --- old/Data-Peek-0.36/Makefile.PL 2011-09-07 17:56:34.000000000 +0200 +++ new/Data-Peek-0.37/Makefile.PL 2012-01-11 09:16:27.000000000 +0100 @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Copyright PROCURA B.V. (c) 2008-2011 H.Merijn Brand +# Copyright PROCURA B.V. (c) 2008-2012 H.Merijn Brand require 5.008; # <- also see postamble at the bottom for META.yml use strict; @@ -135,7 +135,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2008-2011 H.Merijn Brand +Copyright (C) 2008-2012 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.36/Peek.pm new/Data-Peek-0.37/Peek.pm --- old/Data-Peek-0.36/Peek.pm 2011-09-07 13:22:28.000000000 +0200 +++ new/Data-Peek-0.37/Peek.pm 2012-04-16 18:28:46.000000000 +0200 @@ -6,7 +6,7 @@ use DynaLoader (); use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK ); -$VERSION = "0.36"; +$VERSION = "0.37"; @ISA = qw( DynaLoader Exporter ); @EXPORT = qw( DDumper DTidy DDsort DPeek DDisplay DDump DHexDump DDual DGrow ); @@ -203,7 +203,8 @@ my @out; my $var = @_ ? $_[0] : $_; defined $var or return; - my $str = "$var"; # force stringification + my $fmt = @_ > 1 && $_[1] < length ($var) ? "A$_[1]" : "A*"; + my $str = pack $fmt, $var; # force stringification for (unpack "(A32)*", unpack "H*", $str) { my @b = unpack "(A2)*", $_; my $out = sprintf "%04x ", $off; @@ -389,9 +390,12 @@ =head2 DHexDump ($var) +=head2 DHexDump ($var, $length) + Show the (stringified) content of a scalar as a hex-dump. If C<$var> is omitted, C<$_> is dumped. Returns C<undef> or an empty list if -C<$var> (or C<$_>) is undefined. +C<$var> (or C<$_>) is undefined. If C<$length> is given and is lower than +the length of the stringified C<$var>, only <$length> bytes are dumped. In void context, the dump is done to STDERR. In scalar context, the complete dump is returned as a single string. In list context, the dump @@ -441,11 +445,10 @@ grow => q{my $x = ""; DGrow ($x, 20000); $x = "";}, }); - Rate op_x pack grow - op_x 62127/s -- -59% -96% - pack 152046/s 145% -- -91% - grow 1622943/s 2512% 967% -- - + Rate op_x pack grow 5.8.9 5.10.1 5.12.4 5.14.2 + op_x 62127/s -- -59% -96% 118606/s 119730/s 352255/s 362605/s + pack 152046/s 145% -- -91% 380075/s 355666/s 347247/s 387349/s + grow 1622943/s 2512% 967% -- 2818380/s 2918783/s 2672340/s 2886787/s =head2 my $tp = triplevar ($pv, $iv, $nv) @@ -674,7 +677,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2008-2011 H.Merijn Brand +Copyright (C) 2008-2012 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.36/Peek.xs new/Data-Peek-0.37/Peek.xs --- old/Data-Peek-0.36/Peek.xs 2011-02-15 15:09:24.000000000 +0100 +++ new/Data-Peek-0.37/Peek.xs 2012-01-11 09:16:36.000000000 +0100 @@ -1,4 +1,4 @@ -/* Copyright (c) 2008-2011 H.Merijn Brand. All rights reserved. +/* Copyright (c) 2008-2012 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.36/README new/Data-Peek-0.37/README --- old/Data-Peek-0.36/README 2011-02-15 15:09:26.000000000 +0100 +++ new/Data-Peek-0.37/README 2012-01-11 09:17:03.000000000 +0100 @@ -56,7 +56,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (c) 2008-2011 H.Merijn Brand. All rights reserved. +Copyright (c) 2008-2012 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.36/t/22_DHexDump.t new/Data-Peek-0.37/t/22_DHexDump.t --- old/Data-Peek-0.36/t/22_DHexDump.t 2010-08-30 09:57:27.000000000 +0200 +++ new/Data-Peek-0.37/t/22_DHexDump.t 2012-04-16 18:06:04.000000000 +0200 @@ -14,7 +14,12 @@ for (split m/##\n/ => test_data ()) { my ($desc, $in, $out) = split m/\n-\n/, $_, 3; - is (scalar DHexDump ($in), $out, "HexDump $desc"); + if ($in =~ s/\t(\d+)$//) { + is (scalar DHexDump ($in, $1), $out, "HexDump $desc"); + } + else { + is (scalar DHexDump ($in), $out, "HexDump $desc"); + } } done_testing; @@ -34,6 +39,12 @@ - 0000 61 62 63 0a 64 65 e2 82 ac 66 67 abc.de...fg ## +Documentation example with length +- +abc\x{0a}de\x{20ac}fg 6 +- +0000 61 62 63 0a 64 65 abc.de +## Binary data - \x01Great wide open space\x02\x{20ac}\n -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
