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 - coolo@suse.com
+
+- 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
+0.37 2012-04-16, H.Merijn Brand
+ * Upped copyright to 2012
+ * Allow length for DHexDump ()
+0.36 2011-09-07, H.Merijn Brand
* NAME / DISTNAME in Makefile.PL
-2011-09-07 0.35 - H.Merijn Brand
-
+0.35 2011-09-07, H.Merijn Brand
* More cross-checks for META data
-2011-09-01 0.34 - H.Merijn Brand
-
+0.34 2011-09-01, H.Merijn Brand
* 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
-
+0.33 2011-02-16, H.Merijn Brand
* Added DTidy (): stream DDumper output through Perl::Tidy
* Upped copyright to 2011
-2010-11-21 0.32 - H.Merijn Brand
-
+0.32 2010-11-21, H.Merijn Brand
* Require perl 5.8.0
* DGrow tests for bigger gap
* Spell checking
* Add DHexDump ()
-2010-03-16 0.31 - H.Merijn Brand
-
+0.31 2010-03-16, H.Merijn Brand
* Dropped YAML spec to 1.0
-2010-02-14 0.30 - H.Merijn Brand
-
+0.30 2010-02-14, H.Merijn Brand
* 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
-
+0.29 2009-11-09, H.Merijn Brand
* 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
-
+0.28 2009-11-06, H.Merijn Brand
* DDump () now dumps the variable itself, instead of a copy (Zefram)
* Add DGrow ()
-2009-06-03 0.27 - H.Merijn Brand
-
+0.27 2009-06-03, H.Merijn Brand
* void context behaviour for DPeek ()
* void context behaviour for DDual ()
-2009-06-03 0.26 - H.Merijn Brand
-
+0.26 2009-06-03, H.Merijn Brand
* Upped copyright to 2009
* Corrected paren placement for bless (...)
* Documentation fixes
* Added Test::NoWarnings
* Added DDsort ()
-2008-11-24 0.25 - H.Merijn Brand
-
+0.25 2008-11-24, H.Merijn Brand
* Wrong e-mail in META.yml
* #34831 fixed tied $,
-2008-10-31 0.24 - H.Merijn Brand
-
+0.24 2008-10-31, H.Merijn Brand
* 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
-
+0.23 2008-10-21, H.Merijn Brand
* Selecting to install DP did not install Data::Peek
-2008-10-20 0.22 - H.Merijn Brand
-
+0.22 2008-10-20, H.Merijn Brand
* 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
-
+0.21 2008-10-13, H.Merijn Brand
* 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
-
+0.20 2008-10-08, H.Merijn Brand
* 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
-
+0.16 2008-10-07, H.Merijn Brand
* Allocated length for PV's depends on arch (upped test to 8)
* Released on Amsterdam.pm
-2008-09-26 0.15 - H.Merijn Brand
-
+0.15 2008-09-26, H.Merijn Brand
* Start writing tests for DDump ()
* Added DDual ()
-2008-09-25 0.11 - H.Merijn Brand
-
+0.11 2008-09-25, H.Merijn Brand
* 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
-
+0.10 2008-09-24, H.Merijn Brand
* 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 "
@@ -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: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org
