Hello community,
here is the log from the commit of package perl-Data-Dump for openSUSE:Factory checked in at 2013-06-05 17:50:45
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Data-Dump (Old)
and /work/SRC/openSUSE:Factory/.perl-Data-Dump.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Dump"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Data-Dump/perl-Data-Dump.changes 2012-03-17 13:22:23.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Data-Dump.new/perl-Data-Dump.changes 2013-06-05 17:50:47.000000000 +0200
@@ -1,0 +2,9 @@
+Tue Jun 4 07:32:27 UTC 2013 - coolo@suse.com
+
+- updated to 1.22
+ Deal with class names containing '=' [RT#72415]
+
+ Filters now get access to $ctx->expr; the textual expression
+ denoting the current object.
+
+-------------------------------------------------------------------
Old:
----
Data-Dump-1.21.tar.gz
New:
----
Data-Dump-1.22.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Data-Dump.spec ++++++
--- /var/tmp/diff_new_pack.nMaajW/_old 2013-06-05 17:50:47.000000000 +0200
+++ /var/tmp/diff_new_pack.nMaajW/_new 2013-06-05 17:50:47.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Data-Dump
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 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
@@ -17,42 +17,53 @@
Name: perl-Data-Dump
+Version: 1.22
+Release: 0
%define cpan_name Data-Dump
Summary: Pretty printing of data structures
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
-Version: 1.21
-Release: 0
-Url: http://search.cpan.org/dist/Data-Dump
-Source: http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/Data-Dump-%{version}.tar.gz
+Url: http://search.cpan.org/dist/Data-Dump/
+Source: http://www.cpan.org/authors/id/G/GA/GAAS/%{cpan_name}-%{version}.tar.gz
+BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
-%{perl_requires}
BuildRequires: perl
BuildRequires: perl-macros
-Provides: %{cpan_name}
-%if 0%{?suse_version} >= 1120
-BuildArch: noarch
-%endif
+#BuildRequires: perl(Data::Dump)
+#BuildRequires: perl(Data::Dump::FilterContext)
+#BuildRequires: perl(Data::Dump::Filtered)
+%{perl_requires}
%description
-This module provides functions that take a list of values as their
-argument and produce a string as their result. The string contains Perl
-code that, when "eval"ed, produces a deep copy of the original
-arguments.
+This module provide a few functions that traverse their argument and
+produces a string as its result. The string contains Perl code that, when
+'eval'ed, produces a deep copy of the original arguments.
+
+The main feature of the module is that it strives to produce output that is
+easy to read. Example:
+
+ @a = (1, [2, 3], {4 => 5});
+ dump(@a);
+Produces:
+ "(1, [2, 3], { 4 => 5 })"
+If you dump just a little data, it is output on a single line. If you dump
+data that is more complex or there is a lot of it, line breaks are
+automatically added to keep it easy to read.
-Authors:
---------
- Gisle Aas
+The following functions are provided (only the dd* functions are exported
+by default):
+
+* dump( ... )
%prep
%setup -q -n %{cpan_name}-%{version}
%build
-%{__perl} Makefile.PL OPTIMIZE="$RPM_OPT_FLAGS -Wall"
-%{__make}
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+%{__make} %{?_smp_mflags}
%check
%{__make} test
@@ -62,11 +73,8 @@
%perl_process_packlist
%perl_gen_filelist
-%clean
-%{__rm} -rf %{buildroot}
-
%files -f %{name}.files
-%defattr(-, root, root)
+%defattr(-,root,root,755)
%doc Changes README
%changelog
++++++ Data-Dump-1.21.tar.gz -> Data-Dump-1.22.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/Changes new/Data-Dump-1.22/Changes
--- old/Data-Dump-1.21/Changes 2011-10-15 07:53:27.000000000 +0200
+++ new/Data-Dump-1.22/Changes 2013-05-10 12:34:24.000000000 +0200
@@ -1,3 +1,14 @@
+2013-05-10 Gisle Aas
+
+ Release 1.22
+
+ Deal with class names containing '=' [RT#72415]
+
+ Filters now get access to $ctx->expr; the textual expression
+ denoting the current object.
+
+
+
2011-10-15 Gisle Aas
Release 1.21
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/MANIFEST new/Data-Dump-1.22/MANIFEST
--- old/Data-Dump-1.21/MANIFEST 2011-10-15 07:54:35.000000000 +0200
+++ new/Data-Dump-1.22/MANIFEST 2013-05-10 12:34:46.000000000 +0200
@@ -21,4 +21,5 @@
t/scalar.t
t/tied.t
t/vstring.t
-META.yml Module meta-data (added by MakeMaker)
+META.yml Module YAML meta-data (added by MakeMaker)
+META.json Module JSON meta-data (added by MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/META.json new/Data-Dump-1.22/META.json
--- old/Data-Dump-1.21/META.json 1970-01-01 01:00:00.000000000 +0100
+++ new/Data-Dump-1.22/META.json 2013-05-10 12:34:46.000000000 +0200
@@ -0,0 +1,50 @@
+{
+ "abstract" : "Pretty printing of data structures",
+ "author" : [
+ "Gisle Aas "
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Data-Dump",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "Test" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "recommends" : {
+ "MIME::Base64" : "0"
+ },
+ "requires" : {
+ "Symbol" : "0",
+ "perl" : "5.006"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "repository" : {
+ "url" : "http://github.com/gisle/data-dump"
+ }
+ },
+ "version" : "1.22"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/META.yml new/Data-Dump-1.22/META.yml
--- old/Data-Dump-1.21/META.yml 2011-10-15 07:54:35.000000000 +0200
+++ new/Data-Dump-1.22/META.yml 2013-05-10 12:34:46.000000000 +0200
@@ -1,27 +1,27 @@
---- #YAML:1.0
-name: Data-Dump
-version: 1.21
-abstract: Pretty printing of data structures
+---
+abstract: 'Pretty printing of data structures'
author:
- - Gisle Aas
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
+ - 'Gisle Aas '
build_requires:
- Test: 0
-requires:
- perl: 5.006
- Symbol: 0
-resources:
- repository: http://github.com/gisle/data-dump
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.57_05
+ Test: 0
+configure_requires:
+ ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921'
+license: perl
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Data-Dump
+no_index:
+ directory:
+ - t
+ - inc
recommends:
- MIME::Base64: 0
+ MIME::Base64: 0
+requires:
+ Symbol: 0
+ perl: 5.006
+resources:
+ repository: http://github.com/gisle/data-dump
+version: 1.22
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/lib/Data/Dump/FilterContext.pm new/Data-Dump-1.22/lib/Data/Dump/FilterContext.pm
--- old/Data-Dump-1.21/lib/Data/Dump/FilterContext.pm 2011-09-28 21:50:05.000000000 +0200
+++ new/Data-Dump-1.22/lib/Data/Dump/FilterContext.pm 2013-05-10 12:19:46.000000000 +0200
@@ -68,6 +68,14 @@
return Data::Dump::fullname("self", [@$idx[$pidx..(@$idx - 1)]]);
}
+sub expr {
+ my $self = shift;
+ my $top = shift || "var";
+ $top =~ s/^\$//; # it's always added by fullname()
+ my $idx = $self->{idx};
+ return Data::Dump::fullname($top, $idx);
+}
+
sub object_isa {
my($self, $class) = @_;
return $self->{class} && $self->{class}->isa($class);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/lib/Data/Dump/Filtered.pm new/Data-Dump-1.22/lib/Data/Dump/Filtered.pm
--- old/Data-Dump-1.21/lib/Data/Dump/Filtered.pm 2011-09-28 21:58:35.000000000 +0200
+++ new/Data-Dump-1.22/lib/Data/Dump/Filtered.pm 2013-05-10 12:21:02.000000000 +0200
@@ -155,6 +155,14 @@
Returns how many levels deep have we recursed into the structure (from the
original dump_filtered() arguments).
+=item $ctx->expr
+
+=item $ctx->expr( $top_level_name )
+
+Returns an textual expression that denotes the current object. In the
+expression C<$var> is used as the name of the top level object dumped. This
+can be overridden by providing a different name as argument.
+
=back
=head2 Filter return hash
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/lib/Data/Dump.pm new/Data-Dump-1.22/lib/Data/Dump.pm
--- old/Data-Dump-1.21/lib/Data/Dump.pm 2011-10-15 07:51:41.000000000 +0200
+++ new/Data-Dump-1.22/lib/Data/Dump.pm 2013-05-10 12:32:23.000000000 +0200
@@ -9,7 +9,7 @@
@EXPORT = qw(dd ddx);
@EXPORT_OK = qw(dump pp dumpf quote);
-$VERSION = "1.21";
+$VERSION = "1.22";
$DEBUG = 0;
use overload ();
@@ -71,9 +71,6 @@
$out = "do {\n$out}";
}
- #use Data::Dumper; print Dumper(\%refcnt);
- #use Data::Dumper; print Dumper(\%seen);
-
print STDERR "$out\n" unless defined wantarray;
$out;
}
@@ -108,7 +105,7 @@
my($class, $type, $id);
my $strval = overload::StrVal($rval);
# Parse $strval without using regexps, in order not to clobber $1, $2,...
- if ((my $i = index($strval, "=")) >= 0) {
+ if ((my $i = rindex($strval, "=")) >= 0) {
$class = substr($strval, 0, $i);
$strval = substr($strval, $i+1);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/t/dump.t new/Data-Dump-1.22/t/dump.t
--- old/Data-Dump-1.21/t/dump.t 2011-10-15 07:49:19.000000000 +0200
+++ new/Data-Dump-1.22/t/dump.t 2013-04-11 21:51:45.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use Test qw(plan ok);
-plan tests => 33;
+plan tests => 34;
use Data::Dump qw(dump);
@@ -64,3 +64,4 @@
# stranger stuff
ok(dump({ a => \&Data::Dump::dump, aa => do {require Symbol; Symbol::gensym()}}),
"do {\n require Symbol;\n { a => sub { ... }, aa => Symbol::gensym() };\n}");
+ok(dump(bless{}, "foo=bar"), 'bless({}, "foo=bar")');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-1.21/t/filtered.t new/Data-Dump-1.22/t/filtered.t
--- old/Data-Dump-1.21/t/filtered.t 2011-09-28 22:00:00.000000000 +0200
+++ new/Data-Dump-1.22/t/filtered.t 2013-05-10 12:24:15.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use Test qw(plan ok);
-plan tests => 39;
+plan tests => 41;
use Data::Dump qw(dumpf);
@@ -55,6 +55,8 @@
ok(!$ctx->is_scalar);
ok(!$ctx->is_code);
ok($ctx->depth, 1);
+ ok($ctx->expr, '$var->{b}');
+ ok($ctx->expr("ref"), '$ref->{b}');
return;
}) =~ /^bless\(.*, "Foo"\)\z/);
ok($cb_count, 3);
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org