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 - [email protected]
+
+- 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: [email protected]
For additional commands, e-mail: [email protected]
