Hello community,
here is the log from the commit of package perl-Data-Dump-Streamer for
openSUSE:Factory checked in at 2016-01-21 23:44:22
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Data-Dump-Streamer/perl-Data-Dump-Streamer.changes
2014-07-20 10:50:08.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Data-Dump-Streamer.new/perl-Data-Dump-Streamer.changes
2016-01-22 01:10:00.000000000 +0100
@@ -1,0 +2,7 @@
+Mon Jan 18 12:55:39 UTC 2016 - [email protected]
+
+- Update to version 2.39:
+ + No changelog available.
+- Add perl(PadWalker) BuildRequires: needed to pass the test suite.
+
+-------------------------------------------------------------------
Old:
----
Data-Dump-Streamer-2.38.tar.gz
New:
----
Data-Dump-Streamer-2.39.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Data-Dump-Streamer.spec ++++++
--- /var/tmp/diff_new_pack.aT5XaC/_old 2016-01-22 01:10:02.000000000 +0100
+++ /var/tmp/diff_new_pack.aT5XaC/_new 2016-01-22 01:10:02.000000000 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Data-Dump-Streamer
#
-# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2016 SUSE LINUX 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,7 +17,7 @@
Name: perl-Data-Dump-Streamer
-Version: 2.38
+Version: 2.39
Release: 0
%define cpan_name Data-Dump-Streamer
Summary: Accurately serialize a data structure as Perl code.
@@ -32,6 +32,7 @@
BuildRequires: perl(ExtUtils::CBuilder)
BuildRequires: perl(ExtUtils::Depends)
BuildRequires: perl(Module::Build)
+BuildRequires: perl(PadWalker)
Requires: perl(B::Utils)
Recommends: perl(Algorithm::Diff)
Recommends: perl(Compress::Zlib)
++++++ Data-Dump-Streamer-2.38.tar.gz -> Data-Dump-Streamer-2.39.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.38/META.json
new/Data-Dump-Streamer-2.39/META.json
--- old/Data-Dump-Streamer-2.38/META.json 2014-06-12 12:58:11.000000000
+0200
+++ new/Data-Dump-Streamer-2.39/META.json 2015-12-24 06:51:10.000000000
+0100
@@ -4,7 +4,7 @@
"Yves Orton <[email protected]>, Joshua ben Jore <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version
2.120351",
+ "generated_by" : "Module::Build version 0.4214",
"license" : [
"perl_5"
],
@@ -73,11 +73,11 @@
"provides" : {
"Data::Dump::Streamer" : {
"file" : "lib/Data/Dump/Streamer.pm",
- "version" : "2.38"
+ "version" : "2.39"
},
"Data::Dump::Streamer::Deparser" : {
"file" : "lib/Data/Dump/Streamer.pm",
- "version" : "2.38"
+ "version" : "2.39"
}
},
"release_status" : "stable",
@@ -89,5 +89,6 @@
"url" : "https://github.com/demerphq/Data-Dump-Streamer";
}
},
- "version" : "2.38"
+ "version" : "2.39",
+ "x_serialization_backend" : "JSON::PP version 2.27300"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.38/META.yml
new/Data-Dump-Streamer-2.39/META.yml
--- old/Data-Dump-Streamer-2.38/META.yml 2014-06-12 12:58:11.000000000
+0200
+++ new/Data-Dump-Streamer-2.39/META.yml 2015-12-24 06:51:10.000000000
+0100
@@ -3,65 +3,66 @@
author:
- 'Yves Orton <[email protected]>, Joshua ben Jore <[email protected]>'
build_requires:
- B::Deparse: 0
- Carp: 0
- Config: 0
- Data::Dumper: 0
- Devel::Peek: 0
- ExtUtils::CBuilder: 0
- Symbol: 0
- Test::More: 0
- Text::Abbrev: 0
- base: 0
- overload: 0
- re: 0
- strict: 0
- utf8: 0
- vars: 0
- warnings: 0
+ B::Deparse: '0'
+ Carp: '0'
+ Config: '0'
+ Data::Dumper: '0'
+ Devel::Peek: '0'
+ ExtUtils::CBuilder: '0'
+ Symbol: '0'
+ Test::More: '0'
+ Text::Abbrev: '0'
+ base: '0'
+ overload: '0'
+ re: '0'
+ strict: '0'
+ utf8: '0'
+ vars: '0'
+ warnings: '0'
configure_requires:
- ExtUtils::Depends: 0
- Module::Build: 0
- perl: 5.006
+ ExtUtils::Depends: '0'
+ Module::Build: '0'
+ perl: '5.006'
dynamic_config: 1
-generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version
2.120351'
+generated_by: 'Module::Build version 0.4214, CPAN::Meta::Converter version
2.150005'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Data-Dump-Streamer
provides:
Data::Dump::Streamer:
file: lib/Data/Dump/Streamer.pm
- version: 2.38
+ version: '2.39'
Data::Dump::Streamer::Deparser:
file: lib/Data/Dump/Streamer.pm
- version: 2.38
+ version: '2.39'
recommends:
- Algorithm::Diff: 0
- Compress::Zlib: 0
- JSON::XS: 0
- MIME::Base64: 0
- PadWalker: 0.99
+ Algorithm::Diff: '0'
+ Compress::Zlib: '0'
+ JSON::XS: '0'
+ MIME::Base64: '0'
+ PadWalker: '0.99'
requires:
- B: 0
- B::Deparse: 0
- B::Utils: 0
- Data::Dumper: 0
- DynaLoader: 0
- Exporter: 0
- Hash::Util: 0
- IO::File: 0
- Symbol: 0
- Text::Abbrev: 0
- Text::Balanced: 0
- overload: 0
- re: 0
- strict: 0
- vars: 0
- warnings: 0
- warnings::register: 0
+ B: '0'
+ B::Deparse: '0'
+ B::Utils: '0'
+ Data::Dumper: '0'
+ DynaLoader: '0'
+ Exporter: '0'
+ Hash::Util: '0'
+ IO::File: '0'
+ Symbol: '0'
+ Text::Abbrev: '0'
+ Text::Balanced: '0'
+ overload: '0'
+ re: '0'
+ strict: '0'
+ vars: '0'
+ warnings: '0'
+ warnings::register: '0'
resources:
license: http://dev.perl.org/licenses/
repository: https://github.com/demerphq/Data-Dump-Streamer
-version: 2.38
+version: '2.39'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.012'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.38/lib/Data/Dump/Streamer.pm
new/Data-Dump-Streamer-2.39/lib/Data/Dump/Streamer.pm
--- old/Data-Dump-Streamer-2.38/lib/Data/Dump/Streamer.pm 2014-06-12
12:58:11.000000000 +0200
+++ new/Data-Dump-Streamer-2.39/lib/Data/Dump/Streamer.pm 2015-12-24
06:51:10.000000000 +0100
@@ -35,7 +35,7 @@
BEGIN{ $HasPadWalker=eval "use PadWalker 0.99; 1"; }
BEGIN {
- $VERSION ='2.38';
+ $VERSION ='2.39';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION; # used for beta stuff.
@ISA = qw(Exporter DynaLoader);
@@ -3748,7 +3748,7 @@
our @ISA=qw(B::Deparse);
my %cache;
-our $VERSION = '2.38';
+our $VERSION = '2.39';
$VERSION= eval $VERSION;
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.38/t/globtest.t
new/Data-Dump-Streamer-2.39/t/globtest.t
--- old/Data-Dump-Streamer-2.38/t/globtest.t 2014-06-12 12:58:11.000000000
+0200
+++ new/Data-Dump-Streamer-2.39/t/globtest.t 2015-12-24 06:51:10.000000000
+0100
@@ -66,7 +66,25 @@
$off, $width, $bits, $val, $res
.
';
- same( scalar $o->Data(*g)->Out, <<'EXPECT', "data slots
(glob/FORMAT)", $o );
+ if ( 5.021009 <= $] ) {
+ same( scalar $o->Data(*g)->Out, <<'EXPECT', "data slots
(glob/FORMAT)", $o );
+$VAR1 = *::g;
+*::g = \do { my $v = 'a string' };
+*::g = { a => 'hash' };
+*::g = [
+ 'a',
+ 'list'
+ ];
+format g =
+vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+use warnings;
+; $off, $width, $bits, $val, $res
+vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+$off, $width, $bits, $val, $res
+.
+EXPECT
+ } else {
+ same( scalar $o->Data(*g)->Out, <<'EXPECT', "data slots
(glob/FORMAT)", $o );
$VAR1 = *::g;
*::g = \do { my $v = 'a string' };
*::g = { a => 'hash' };
@@ -81,12 +99,28 @@
$off, $width, $bits, $val, $res
.
EXPECT
+
+ }
SKIP: {
skip "no FORMAT refs before ".vstr(5,7)." and this is
".vstr(),
my $NUM=3
unless 5.008 <= $];
+ if ( 5.021009 <= $] ) {
- same( scalar $o->Data(*g{FORMAT})->Out, <<'EXPECT', "data slots
(ref/FORMAT)", $o );
+ same( scalar $o->Data(*g{FORMAT})->Out, <<'EXPECT',
"data slots (ref/FORMAT)", $o );
+$FORMAT1 = do{ local *F; my $F=<<'_EOF_FORMAT_'; $F=~s/^\s+# //mg; eval $F;
die $F.$@ if $@; *F{FORMAT};
+ # format F =
+ # vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ # use warnings;
+ # ; $off, $width, $bits, $val, $res
+ # vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ # $off, $width, $bits, $val, $res
+ # .
+_EOF_FORMAT_
+ };
+EXPECT
+ } else {
+ same( scalar $o->Data(*g{FORMAT})->Out, <<'EXPECT',
"data slots (ref/FORMAT)", $o );
$FORMAT1 = do{ local *F; my $F=<<'_EOF_FORMAT_'; $F=~s/^\s+# //mg; eval $F;
die $F.$@ if $@; *F{FORMAT};
# format F =
# vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -97,14 +131,35 @@
_EOF_FORMAT_
};
EXPECT
- my $y=bless *g{FORMAT},"Thank::YSTH";
- #same ( scalar $o->Data(*g{FORMAT})->Out, <<'EXPECT', "data
slots (blessed FORMAT)", $o );
- test_dump( {name=>"data slots (blessed FORMAT)",
- verbose=>1,
- pre_eval=>'our ($off,$width,$bits,$val,$res);',
- no_dumper=>1
- },
- $o, *g{FORMAT}, <<'EXPECT' );
+ }
+ my $y=bless *g{FORMAT},"Thank::YSTH";
+ if ( 5.021009 <= $] ) {
+ #same ( scalar $o->Data(*g{FORMAT})->Out, <<'EXPECT',
"data slots (blessed FORMAT)", $o );
+ test_dump( {name=>"data slots (blessed FORMAT)",
+ verbose=>1,
+ pre_eval=>'our
($off,$width,$bits,$val,$res);',
+ no_dumper=>1,
+ no_redump=>1,
+ },
+ $o, *g{FORMAT}, <<'EXPECT' );
+$Thank_YSTH1 = bless( do{ local *F; my $F=<<'_EOF_FORMAT_'; $F=~s/^\s+# //mg;
eval $F; die $F.$@ if $@; *F{FORMAT};
+ # format F =
+ # vec($_,@#,@#) = @<< == @#########
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ # use warnings;
+ # ; $off, $width, $bits, $val, $res
+ # vec($_,@#,@#) = @<< == @#########
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ # $off, $width, $bits, $val, $res
+ # .
+_EOF_FORMAT_
+ }, 'Thank::YSTH' );
+EXPECT
+ } else {
+ test_dump( {name=>"data slots (blessed FORMAT)",
+ verbose=>1,
+ pre_eval=>'our
($off,$width,$bits,$val,$res);',
+ no_dumper=>1,
+ },
+ $o, *g{FORMAT}, <<'EXPECT' );
$Thank_YSTH1 = bless( do{ local *F; my $F=<<'_EOF_FORMAT_'; $F=~s/^\s+# //mg;
eval $F; die $F.$@ if $@; *F{FORMAT};
# format F =
# vec($_,@#,@#) = @<< == @#########
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -115,8 +170,10 @@
_EOF_FORMAT_
}, 'Thank::YSTH' );
EXPECT
- our $gg=1; #silence a warning;
- same( scalar $o->Data(*gg{FORMAT})->Out, <<'EXPECT', "data
slots (empty FORMAT)", $o );
+
+ }
+ our $gg=1; #silence a warning;
+ same( scalar $o->Data(*gg{FORMAT})->Out, <<'EXPECT', "data
slots (empty FORMAT)", $o );
$VAR1 = undef;
EXPECT
};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.38/t/test_helper.pl
new/Data-Dump-Streamer-2.39/t/test_helper.pl
--- old/Data-Dump-Streamer-2.38/t/test_helper.pl 2014-06-12
12:58:11.000000000 +0200
+++ new/Data-Dump-Streamer-2.39/t/test_helper.pl 2015-12-24
06:51:10.000000000 +0100
@@ -110,12 +110,19 @@
s/\(0x[0-9a-xA-X]+\)/(0xdeadbeef)/g for $str1, $str2;
my @vars = $str2 =~ m/^(?:my\s*)?(\$\w+)\s*=/gm;
+ for ($str1, $str2) {
+ s/^\s+# use warnings;\n//mg;
+ s/^\s+# use strict[^;]*;\n//mg;
+ s/# ;/#/g;
+ }
+
#warn "@vars";
unless ( ok( "\n" . $str1 eq "\n" . $str2, $name ) ) {
if ( $str2 =~ /\S/ ) {
eval {
print string_diff( "\n" . $str2, "\n" . $str1, "Expected",
"Result" );
print "Got:\n" . $str1 . "\n";
+ 1;
}
or do {
print "Expected:\n$str2\nGot:\n$str1\n";
