Hello community, here is the log from the commit of package perl-Data-Dump-Streamer for openSUSE:Factory checked in at 2012-06-01 18:55:01 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Data-Dump-Streamer (Old) and /work/SRC/openSUSE:Factory/.perl-Data-Dump-Streamer.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Data-Dump-Streamer", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Data-Dump-Streamer/perl-Data-Dump-Streamer.changes 2012-02-14 19:04:57.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Data-Dump-Streamer.new/perl-Data-Dump-Streamer.changes 2012-06-01 18:55:02.000000000 +0200 @@ -1,0 +2,17 @@ +Wed May 30 08:52:16 UTC 2012 - coolo@suse.com + +- updated to 2.33 + Caught up with various RT reports, and fixed a bunch of them. + + [RT#74198] fixed dumps containing read-only objects (obtained via JSON::XS) + + [RT#74198], Fixed stringification of code compiled under strict in later + perls. Thanks to Father Chrysotomos for the patch and nudge. + + Also eliminated a false-fail prone test which was actually pretty useless, + which should close several tickets which I wont bother to list. + + This release also is the first from the new git repository at + https://github.com/demerphq/Data-Dump-Streamer + +------------------------------------------------------------------- Old: ---- Data-Dump-Streamer-2.32.tar.gz New: ---- Data-Dump-Streamer-2.33.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Data-Dump-Streamer.spec ++++++ --- /var/tmp/diff_new_pack.xUsmcO/_old 2012-06-01 18:55:06.000000000 +0200 +++ /var/tmp/diff_new_pack.xUsmcO/_new 2012-06-01 18:55:06.000000000 +0200 @@ -17,59 +17,30 @@ Name: perl-Data-Dump-Streamer -Version: 2.32 +Version: 2.33 Release: 0 %define cpan_name Data-Dump-Streamer Summary: Accurately serialize a data structure as Perl code. -License: GPL-1.0+ or Artistic-1.0 +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Data-Dump-Streamer/ -#Source: http://www.cpan.org/authors/id/J/JJ/JJORE/Data-Dump-Streamer-%{version}.tar.gz -Source: %{cpan_name}-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/Y/YV/YVES/%{cpan_name}-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Algorithm::Diff) -BuildRequires: perl(B) -BuildRequires: perl(B::Deparse) BuildRequires: perl(B::Utils) -BuildRequires: perl(Carp) -BuildRequires: perl(Config) -BuildRequires: perl(Data::Dumper) -BuildRequires: perl(DynaLoader) -BuildRequires: perl(Exporter) -BuildRequires: perl(IO::File) +BuildRequires: perl(ExtUtils::CBuilder) +BuildRequires: perl(ExtUtils::Depends) +BuildRequires: perl(JSON::XS) BuildRequires: perl(Module::Build) -BuildRequires: perl(PadWalker) >= 0.99 -BuildRequires: perl(Symbol) -BuildRequires: perl(Text::Abbrev) -BuildRequires: perl(Text::Balanced) -BuildRequires: perl(base) -BuildRequires: perl(overload) -BuildRequires: perl(re) -BuildRequires: perl(strict) -BuildRequires: perl(utf8) -BuildRequires: perl(vars) -BuildRequires: perl(warnings) -BuildRequires: perl(warnings::register) -Requires: perl(Algorithm::Diff) -Requires: perl(B) -Requires: perl(B::Deparse) +#BuildRequires: perl(Compress::Zlib) +#BuildRequires: perl(Data::Dump::Streamer) +#BuildRequires: perl(Data::Dump::Streamer::_::Printers) +#BuildRequires: perl(My::Builder) Requires: perl(B::Utils) -Requires: perl(Data::Dumper) -Requires: perl(DynaLoader) -Requires: perl(Exporter) -Requires: perl(IO::File) -Requires: perl(overload) -Requires: perl(PadWalker) >= 0.99 -Requires: perl(re) -Requires: perl(strict) -Requires: perl(Symbol) -Requires: perl(Text::Abbrev) -Requires: perl(Text::Balanced) -Requires: perl(vars) -Requires: perl(warnings) -Requires: perl(warnings::register) +Recommends: perl(Algorithm::Diff) +Recommends: perl(Compress::Zlib) +Recommends: perl(PadWalker) >= 0.99 %{perl_requires} %description @@ -107,11 +78,8 @@ ./Build install destdir=%{buildroot} create_packlist=0 %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files -%defattr(644,root,root,755) +%defattr(-,root,root,755) %doc Changes INSTALL.SKIP README %changelog ++++++ Data-Dump-Streamer-2.32.tar.gz -> Data-Dump-Streamer-2.33.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-Streamer-2.32/Build.PL new/Data-Dump-Streamer-2.33/Build.PL --- old/Data-Dump-Streamer-2.32/Build.PL 2011-02-05 05:53:11.000000000 +0100 +++ new/Data-Dump-Streamer-2.33/Build.PL 2012-04-01 17:21:57.000000000 +0200 @@ -35,6 +35,7 @@ 'utf8' => 0, 'vars' => 0, 'warnings' => 0, + 'JSON::XS' => 0, $] >= 5.012 ? ( 're' => 0 ) : (), diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-Streamer-2.32/Changes new/Data-Dump-Streamer-2.33/Changes --- old/Data-Dump-Streamer-2.32/Changes 2011-02-05 05:53:11.000000000 +0100 +++ new/Data-Dump-Streamer-2.33/Changes 2012-04-01 17:21:57.000000000 +0200 @@ -1,3 +1,18 @@ +2.33 +Caught up with various RT reports, and fixed a bunch of them. + +[RT #74198] fixed dumps containing read-only objects (obtained via JSON::XS) + +[RT #74198], Fixed stringification of code compiled under strict in later +perls. Thanks to Father Chrysotomos for the patch and nudge. + +Also eliminated a false-fail prone test which was actually pretty useless, +which should close several tickets which I wont bother to list. + +This release also is the first from the new git repository at +https://github.com/demerphq/Data-Dump-Streamer + + 2.32 Disable overloading in a <=5.8.8 safe way [RT #53700] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-Streamer-2.32/META.yml new/Data-Dump-Streamer-2.33/META.yml --- old/Data-Dump-Streamer-2.32/META.yml 2011-02-05 05:53:11.000000000 +0100 +++ new/Data-Dump-Streamer-2.33/META.yml 2012-04-01 17:21:57.000000000 +0200 @@ -8,6 +8,7 @@ Data::Dumper: 0 Devel::Peek: 0 ExtUtils::CBuilder: 0 + JSON::XS: 0 Symbol: 0 Test::More: 0 Text::Abbrev: 0 @@ -31,10 +32,10 @@ provides: Data::Dump::Streamer: file: lib/Data/Dump/Streamer.pm - version: 2.32 + version: 2.33 Data::Dump::Streamer::Deparser: file: lib/Data/Dump/Streamer.pm - version: 2.32 + version: 2.33 recommends: Algorithm::Diff: 0 Compress::Zlib: 0 @@ -60,4 +61,4 @@ warnings::register: 0 resources: license: http://dev.perl.org/licenses/ -version: 2.32 +version: 2.33 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-Streamer-2.32/lib/Data/Dump/Streamer.pm new/Data-Dump-Streamer-2.33/lib/Data/Dump/Streamer.pm --- old/Data-Dump-Streamer-2.32/lib/Data/Dump/Streamer.pm 2011-02-05 05:53:11.000000000 +0100 +++ new/Data-Dump-Streamer-2.33/lib/Data/Dump/Streamer.pm 2012-04-01 17:21:57.000000000 +0200 @@ -1,6 +1,7 @@ package Data::Dump::Streamer; use strict; use warnings; +use warnings::register; use B (); use B::Deparse (); @@ -17,8 +18,6 @@ use Data::Dump::Streamer::_::Printers; # use overload qw("" printit); # does diabolical stuff. -use warnings; -use warnings::register; use vars qw( $VERSION @@ -35,7 +34,7 @@ BEGIN{ $HasPadWalker=eval "use PadWalker 0.99; 1"; } BEGIN { - $VERSION ='2.32'; + $VERSION ='2.33'; $VERSION = eval $VERSION; # used for beta stuff. @ISA = qw(Exporter DynaLoader); @EXPORT=qw(Dump DumpLex DumpVars); @@ -229,10 +228,12 @@ }; } else { *disable_overloading = sub ($) { - bless $_[0], 'Does::Not::Exist'; + # we use eval because $_[0] might be read-only + # its a crappy solution, but whatever, it works + eval { bless $_[0], 'Does::Not::Exist' }; }; *restore_overloading = sub ($$) { - bless $_[0], $_[1]; + eval { bless $_[0], $_[1] } }; } my %fail=map { ( $_ => 1 ) } @EXPORT_FAIL; @@ -1009,7 +1010,7 @@ unless substr( $name, 0, 1 ) eq $type and $type ne '$'; } else { - no warnings; + no warnings; # XXX - why is this here? Yves Carp::confess "unimplemented _build_name"; } $DEBUG>1 and print "$name )\n"; @@ -2333,7 +2334,7 @@ } else { my $quoted; if ($self->{style}{dualvars}) { - no warnings 'numeric'; + no warnings 'numeric'; # XXX: is this required? if (_could_be_dualvar($item) && 0+$item ne $item && "$item" != $item ) { $quoted="dualvar( ".join(",$optspace",0+$item,_quote("$item"))."$optspace)"; } @@ -2458,7 +2459,7 @@ $default_key_sorters{alphabetical}=$default_key_sorters{lexical}; $default_key_sorters{intelligent}=$default_key_sorters{smart}; for my $h (\%default_key_sorters) { - my $abr=Text::Abbrev::abbrev keys %$h; + my $abr=Text::Abbrev::abbrev(keys %$h); foreach my $short (keys %$abr) { $h->{$short}=$h->{$abr->{$short}}; } @@ -3734,7 +3735,7 @@ our @ISA=qw(B::Deparse); my %cache; -our $VERSION = '2.32'; +our $VERSION = '2.33'; if ( $VERSION ne $Data::Dump::Streamer::VERSION ) { die "Incompatible Data::Dump::Streamer::Deparser v$VERSION vs Data::Dump::Streamer v$Data::Dump::Streamer::VERSION"; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-Streamer-2.32/t/madness.t new/Data-Dump-Streamer-2.33/t/madness.t --- old/Data-Dump-Streamer-2.32/t/madness.t 2011-02-05 05:53:11.000000000 +0100 +++ new/Data-Dump-Streamer-2.33/t/madness.t 2012-04-01 17:21:57.000000000 +0200 @@ -6,7 +6,7 @@ use strict; use warnings; use Data::Dumper; - +use JSON::XS qw(decode_json); # imports same() (my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/; require $helper; @@ -226,13 +226,13 @@ else { $expected_dot = 'undef'; } + my $jstrue= decode_json("true"); my %hash = ( UND => undef, IV => 1, NV => 3.14159265358979, PV => "string", PV8 => "ab\ncd\x{20ac}\t", - PVM => "$!", RV => \$., AR => [ 1..2 ], HR => { key => "value" }, @@ -240,7 +240,8 @@ GLB => *STDERR, IO => *{$::{STDERR}}{IO}, FMT => \*{$::{STDOUT}}{FORMAT}, - OBJ => bless qr/("[^"]+")/,"Zorp", + OBJ => bless(qr/("[^"]+")/,"Zorp"), + JSB => $jstrue, ); # Dumping differences per perl version: @@ -249,7 +250,7 @@ # IO handles are now blessed into IO::File, I guess? # if ( $] >= 5.012_000 ) { - same( $dump= $o->Data(\%hash)->Out, template( <<'EXPECT', expected_dot => $expected_dot ), "", $o); + my $expect = <<'EXPECT'; $HASH1 = { AR => [ 1, @@ -271,15 +272,23 @@ HR => { key => 'value' }, IO => bless( *{Symbol::gensym()}{IO}, 'IO::File' ), IV => 1, + JSB => \1, NV => 3.14159265358979, OBJ => bless( qr/("[^"]+")/, 'Zorp' ), PV => 'string', PV8 => "ab\ncd\x{20ac}\t", - PVM => '', RV => \do { my $v = expected_dot }, UND => undef }; +bless( $HASH1->{JSB}, 'JSON::XS::Boolean' ); EXPECT + require B::Deparse; + if (new B::Deparse -> coderef2text ( + sub { no strict; 1; use strict; 1; } + ) !~ 'refs') { + $expect =~ s/strict 'refs'/strict/; + } + same( $dump= $o->Data(\%hash)->Out, template( $expect, expected_dot => $expected_dot ), "", $o); } elsif ( $] >= 5.008_008 ) { same( $dump= $o->Data(\%hash)->Out, template( <<'EXPECT', expected_dot => $expected_dot ), "", $o); @@ -304,14 +313,15 @@ HR => { key => 'value' }, IO => bless( *{Symbol::gensym()}{IO}, 'IO::Handle' ), IV => 1, + JSB => \1, NV => 3.14159265358979, OBJ => bless( qr/("[^"]+")/, 'Zorp' ), PV => 'string', PV8 => "ab\ncd\x{20ac}\t", - PVM => '', RV => \do { my $v = expected_dot }, UND => undef }; +bless( $HASH1->{JSB}, 'JSON::XS::Boolean' ); EXPECT } elsif ( $] >= 5.008_000 ) { @@ -337,14 +347,15 @@ HR => { key => 'value' }, IO => bless( *{Symbol::gensym()}{IO}, 'IO::Handle' ), IV => 1, + JSB => \1, NV => 3.14159265358979, OBJ => bless( qr/("[^"]+")/, 'Zorp' ), PV => 'string', PV8 => "ab\ncd\x{20ac}\t", - PVM => '', RV => \do { my $v = expected_dot }, UND => undef }; +bless( $HASH1->{JSB}, 'JSON::XS::Boolean' ); EXPECT } else { @@ -362,14 +373,15 @@ HR => { key => 'value' }, IO => bless( *{Symbol::gensym()}{IO}, 'IO::Handle' ), IV => 1, + JSB => \1, NV => 3.14159265358979, OBJ => bless( qr/("[^"]+")/, 'Zorp' ), PV => 'string', PV8 => "ab\ncd\x{20ac}\t", - PVM => '', RV => \do { my $v = expected_dot }, UND => undef }; +bless( $HASH1->{JSB}, 'JSON::XS::Boolean' ); EXPECT } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Dump-Streamer-2.32/t/test_helper.pl new/Data-Dump-Streamer-2.33/t/test_helper.pl --- old/Data-Dump-Streamer-2.32/t/test_helper.pl 2011-02-05 05:53:11.000000000 +0100 +++ new/Data-Dump-Streamer-2.33/t/test_helper.pl 2012-04-01 17:21:57.000000000 +0200 @@ -133,18 +133,19 @@ sub _dumper { my ($todump)=@_; - my ($dump,$error); + my $dump; + my $error= ""; foreach my $use_perl (1) { my $warned=""; local $SIG{__WARN__}=sub { my $err=join ('',@_); $warned.=$err unless $err=~/^Subroutine|Encountered/}; $dump=eval { scalar Data::Dumper->new( $todump )->Purity(1)->Sortkeys(1)->Quotekeys(1)->Useperl($use_perl)->Dump() }; - unless ($@) { + if ( !$@ ) { normalize($dump); - return ($dump,$error.$warned); - }else { + return ($dump, $error . $warned); + } else { unless ($version) { $version="\tSomething is wrong with Data::Dumper v" . Data::Dumper->VERSION . "\n"; - $error=$version; + $error= $version; } my $msg=$@.$warned; unless ($errors{$msg}) { -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org