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 - co...@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 <gi...@aas.no> +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 <gi...@activestate.com> + + 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 <gi...@activestate.com> 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 <gi...@activestate.com>" + ], + "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 <gi...@activestate.com> -license: perl -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 + - 'Gisle Aas <gi...@activestate.com>' 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+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org