Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Data-Dump-Streamer for
openSUSE:Factory checked in at 2023-02-16 16:55:59
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Data-Dump-Streamer (Old)
and /work/SRC/openSUSE:Factory/.perl-Data-Dump-Streamer.new.22824 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Dump-Streamer"
Thu Feb 16 16:55:59 2023 rev:16 rq:1066002 version:2.41
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Data-Dump-Streamer/perl-Data-Dump-Streamer.changes
2016-09-26 12:36:16.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Data-Dump-Streamer.new.22824/perl-Data-Dump-Streamer.changes
2023-02-16 16:56:11.914783768 +0100
@@ -1,0 +2,12 @@
+Sat Jan 28 03:06:25 UTC 2023 - Tina Müller <[email protected]>
+
+- updated to 2.41
+ see /usr/share/doc/packages/perl-Data-Dump-Streamer/Changes
+
+ 2.41
+ Merged in all the open PR's. Some MUCH much later than I originally
+ intended to. Humble apologies to those who contributed fixes for that.
+ Switch from JSON::XS to Cpanel::JSON::XS as an optional test prereq.
+ Thanks to Karen Etheridge, Kent Frederic and Michael Schwern.
+
+-------------------------------------------------------------------
Old:
----
Data-Dump-Streamer-2.40.tar.gz
New:
----
Data-Dump-Streamer-2.41.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Data-Dump-Streamer.spec ++++++
--- /var/tmp/diff_new_pack.w806ZT/_old 2023-02-16 16:56:12.474786007 +0100
+++ /var/tmp/diff_new_pack.w806ZT/_new 2023-02-16 16:56:12.478786022 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Data-Dump-Streamer
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2023 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,21 +12,19 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
+%define cpan_name Data-Dump-Streamer
Name: perl-Data-Dump-Streamer
-Version: 2.40
+Version: 2.41
Release: 0
-%define cpan_name Data-Dump-Streamer
+License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Accurately serialize a data structure as Perl code
-License: Artistic-1.0 or GPL-1.0+
-Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/Data-Dump-Streamer/
-Source0:
http://www.cpan.org/authors/id/Y/YV/YVES/%{cpan_name}-%{version}.tar.gz
+URL: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/Y/YV/YVES/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(B::Utils)
@@ -36,7 +34,7 @@
Requires: perl(B::Utils)
Recommends: perl(Algorithm::Diff)
Recommends: perl(Compress::Zlib)
-Recommends: perl(JSON::XS)
+Recommends: perl(Cpanel::JSON::XS)
Recommends: perl(PadWalker) >= 0.99
%{perl_requires}
@@ -62,10 +60,10 @@
produce the output, but obeying the depth relationships of the first pass.
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{version}
%build
-%{__perl} Build.PL installdirs=vendor optimize="%{optflags}"
+perl Build.PL installdirs=vendor optimize="%{optflags}"
./Build build flags=%{?_smp_mflags}
%check
@@ -76,7 +74,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes README.md
%changelog
++++++ Data-Dump-Streamer-2.40.tar.gz -> Data-Dump-Streamer-2.41.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/Build.PL
new/Data-Dump-Streamer-2.41/Build.PL
--- old/Data-Dump-Streamer-2.40/Build.PL 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/Build.PL 2023-01-27 07:07:39.000000000
+0100
@@ -78,7 +78,7 @@
'PadWalker' => '0.99',
# optional for testing
- 'JSON::XS' => 0,
+ 'Cpanel::JSON::XS' => 0,
},
meta_merge => {
resources => {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/Changes
new/Data-Dump-Streamer-2.41/Changes
--- old/Data-Dump-Streamer-2.40/Changes 2016-08-30 10:14:14.000000000 +0200
+++ new/Data-Dump-Streamer-2.41/Changes 2023-01-27 07:07:39.000000000 +0100
@@ -1,3 +1,12 @@
+2.41
+
+Merged in all the open PR's. Some MUCH much later than I originally
+intended to. Humble apologies to those who contributed fixes for that.
+
+Switch from JSON::XS to Cpanel::JSON::XS as an optional test prereq.
+
+Thanks to Karen Etheridge, Kent Frederic and Michael Schwern.
+
2.40
Fixup issues with JSON and with non-Padwalker builds (thanks to FC)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/META.json
new/Data-Dump-Streamer-2.41/META.json
--- old/Data-Dump-Streamer-2.40/META.json 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/META.json 2023-01-27 07:07:39.000000000
+0100
@@ -4,13 +4,13 @@
"Yves Orton <[email protected]>, Joshua ben Jore <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.422",
+ "generated_by" : "Module::Build version 0.4232",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
- "version" : "2"
+ "version" : 2
},
"name" : "Data-Dump-Streamer",
"prereqs" : {
@@ -45,7 +45,7 @@
"recommends" : {
"Algorithm::Diff" : "0",
"Compress::Zlib" : "0",
- "JSON::XS" : "0",
+ "Cpanel::JSON::XS" : "0",
"MIME::Base64" : "0",
"PadWalker" : "0.99"
},
@@ -73,11 +73,11 @@
"provides" : {
"Data::Dump::Streamer" : {
"file" : "lib/Data/Dump/Streamer.pm",
- "version" : "2.40"
+ "version" : "2.41"
},
"Data::Dump::Streamer::Deparser" : {
"file" : "lib/Data/Dump/Streamer.pm",
- "version" : "2.40"
+ "version" : "2.41"
}
},
"release_status" : "stable",
@@ -89,6 +89,6 @@
"url" : "https://github.com/demerphq/Data-Dump-Streamer";
}
},
- "version" : "2.40",
- "x_serialization_backend" : "JSON::PP version 2.27300"
+ "version" : "2.41",
+ "x_serialization_backend" : "JSON::PP version 4.16"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/META.yml
new/Data-Dump-Streamer-2.41/META.yml
--- old/Data-Dump-Streamer-2.40/META.yml 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/META.yml 2023-01-27 07:07:39.000000000
+0100
@@ -24,7 +24,7 @@
Module::Build: '0'
perl: '5.006'
dynamic_config: 1
-generated_by: 'Module::Build version 0.422, CPAN::Meta::Converter version
2.150005'
+generated_by: 'Module::Build version 0.4232, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -33,14 +33,14 @@
provides:
Data::Dump::Streamer:
file: lib/Data/Dump/Streamer.pm
- version: '2.40'
+ version: '2.41'
Data::Dump::Streamer::Deparser:
file: lib/Data/Dump/Streamer.pm
- version: '2.40'
+ version: '2.41'
recommends:
Algorithm::Diff: '0'
Compress::Zlib: '0'
- JSON::XS: '0'
+ Cpanel::JSON::XS: '0'
MIME::Base64: '0'
PadWalker: '0.99'
requires:
@@ -64,5 +64,5 @@
resources:
license: http://dev.perl.org/licenses/
repository: https://github.com/demerphq/Data-Dump-Streamer
-version: '2.40'
+version: '2.41'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/lib/Data/Dump/Streamer.pm
new/Data-Dump-Streamer-2.41/lib/Data/Dump/Streamer.pm
--- old/Data-Dump-Streamer-2.40/lib/Data/Dump/Streamer.pm 2016-08-30
10:14:14.000000000 +0200
+++ new/Data-Dump-Streamer-2.41/lib/Data/Dump/Streamer.pm 2023-01-27
07:07:39.000000000 +0100
@@ -35,7 +35,7 @@
BEGIN{ $HasPadWalker=eval "use PadWalker 0.99; 1"; }
BEGIN {
- $VERSION ='2.40';
+ $VERSION ='2.41';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION; # used for beta stuff.
@ISA = qw(Exporter DynaLoader);
@@ -758,6 +758,8 @@
purity => 1, # test
+ terse => 0,
+
# use this if deparse is 0
codestub => 'sub { Carp::confess "Dumped code stub!" }',
formatstub => 'do{ local *F; eval "format F =\nFormat
Stub\n.\n"; *F{FORMAT} }',
@@ -1926,7 +1928,7 @@
next;
}
- $self->{fh}->print("$name = ");
+ $self->{fh}->print("$name = ") unless $self->{style}{terse};
my
$ret=$self->_dump_sv(*$lhs{$t},$depth,\$dumped,$name,length($name)+3);
Carp::confess "\nUnhandled alias value '$ret' returned to
_dump_apply_fix()!"
if $ret;
@@ -2122,15 +2124,6 @@
}
-sub print_token {
- my ($self, $str)=@_;
- $self->{fh}->print($str);
-}
-sub print_quoted {
- my ( $self, $str )=@_;
- $self->{fh}->print($str);
-}
-
# sqz(str,begin,end)
sub sqz {
require Compress::Zlib;
@@ -2283,7 +2276,7 @@
}
#push @{$self->{out_names}},$name; #must
#push @{$self->{declare}},$name;
- unless ($name=~/^\&/) { # XXX
+ unless ($self->{style}{terse} || $name=~/^\&/) { # XXX
my $str=(($self->{style}{declare} && $name!~/^\*/
&& !$self->{lexicals}{added}{$name}
) ? "my$optspace" : ""
@@ -2329,7 +2322,7 @@
$self->{buf}+=5;
} else {
my $is_ro=($self->{style}{ro} && $ro && !$is_ref);
- if ($is_ro and !$self->{style}{purity}) {
+ if ($is_ro and !$self->{style}{purity} and !$self->{style}{terse})
{
$self->{fh}->print("make_ro($optspace");
}
if ($glob) {
@@ -2370,10 +2363,12 @@
$self->{buf}=length($1) if $quoted=~/\n([^\n]*)\s*\z/;
$self->{fh}->print($quoted); #;
}
- if ($is_ro && $self->{style}{purity}) {
- $self->_add_fix('sub call','make_ro',$name);
- } elsif ($is_ro) {
- $self->{fh}->print("$optspace)");
+ if( !$self->{style}{terse} ) {
+ if ($is_ro && $self->{style}{purity}) {
+ $self->_add_fix('sub call','make_ro',$name);
+ } elsif ($is_ro) {
+ $self->{fh}->print("$optspace)");
+ }
}
#return
}
@@ -3073,6 +3068,8 @@
B<NOTE:>
Must be called before C<Data()> is called.
+If you wish to have no names, use L<Terse>.
+
=cut
sub Names {
@@ -3099,6 +3096,30 @@
return wantarray ? @{$self->{unames}||[]} : $self->{unames}
}
+=item Terse
+
+=item Terse BOOL
+
+When true, no variable names will be created. Data will be dumped as
+anonymous references or values.
+
+ Dump([])->Out; # $ARRAY1 = []
+ Dump([])->Terse(1)->Out; # []
+
+=cut
+
+sub Terse {
+ my $self = shift->_safe_self;
+ if( @_ ) {
+ $self->{style}{terse} = shift;
+ return $self;
+ }
+ else {
+ return $self->{style}{terse};
+ }
+}
+
+
=for UEDIT
sub Purity {}
@@ -3750,7 +3771,7 @@
our @ISA=qw(B::Deparse);
my %cache;
-our $VERSION = '2.40';
+our $VERSION = '2.41';
$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.40/t/dogpound.t
new/Data-Dump-Streamer-2.41/t/dogpound.t
--- old/Data-Dump-Streamer-2.40/t/dogpound.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/dogpound.t 2023-01-27 07:07:39.000000000
+0100
@@ -8,8 +8,7 @@
use Data::Dumper;
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/dump.t
new/Data-Dump-Streamer-2.41/t/dump.t
--- old/Data-Dump-Streamer-2.40/t/dump.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/dump.t 2023-01-27 07:07:39.000000000
+0100
@@ -7,8 +7,7 @@
#$Id: dump.t 40 2007-12-22 00:37:55Z demerphq $#
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/filter.t
new/Data-Dump-Streamer-2.41/t/filter.t
--- old/Data-Dump-Streamer-2.40/t/filter.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/filter.t 2023-01-27 07:07:39.000000000
+0100
@@ -7,8 +7,7 @@
#$Id: filter.t 26 2006-04-16 15:18:52Z demerphq $#
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/globtest.t
new/Data-Dump-Streamer-2.41/t/globtest.t
--- old/Data-Dump-Streamer-2.40/t/globtest.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/globtest.t 2023-01-27 07:07:39.000000000
+0100
@@ -8,8 +8,7 @@
use Data::Dumper;
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/hardrefs.t
new/Data-Dump-Streamer-2.41/t/hardrefs.t
--- old/Data-Dump-Streamer-2.40/t/hardrefs.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/hardrefs.t 2023-01-27 07:07:39.000000000
+0100
@@ -8,8 +8,7 @@
use Data::Dumper;
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/impure_madness.t
new/Data-Dump-Streamer-2.41/t/impure_madness.t
--- old/Data-Dump-Streamer-2.40/t/impure_madness.t 2016-08-30
10:14:14.000000000 +0200
+++ new/Data-Dump-Streamer-2.41/t/impure_madness.t 2023-01-27
07:07:39.000000000 +0100
@@ -8,8 +8,7 @@
use Data::Dumper;
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/lexicals.t
new/Data-Dump-Streamer-2.41/t/lexicals.t
--- old/Data-Dump-Streamer-2.40/t/lexicals.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/lexicals.t 2023-01-27 07:07:39.000000000
+0100
@@ -5,8 +5,7 @@
use Data::Dump::Streamer;
use Test::More tests => 14;
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
diag "\nPadWalker ",
eval "use PadWalker 0.99; 1" ? qq($PadWalker::VERSION is) : "isn't",
" installed";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/locked.t
new/Data-Dump-Streamer-2.41/t/locked.t
--- old/Data-Dump-Streamer-2.40/t/locked.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/locked.t 2023-01-27 07:07:39.000000000
+0100
@@ -9,8 +9,7 @@
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/madness.t
new/Data-Dump-Streamer-2.41/t/madness.t
--- old/Data-Dump-Streamer-2.40/t/madness.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/madness.t 2023-01-27 07:07:39.000000000
+0100
@@ -7,8 +7,7 @@
use warnings;
use Data::Dumper;
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/madness_json.t
new/Data-Dump-Streamer-2.41/t/madness_json.t
--- old/Data-Dump-Streamer-2.40/t/madness_json.t 2016-08-30
10:14:14.000000000 +0200
+++ new/Data-Dump-Streamer-2.41/t/madness_json.t 2023-01-27
07:07:39.000000000 +0100
@@ -3,17 +3,16 @@
use warnings;
use Data::Dumper;
BEGIN {
- if (eval"require JSON::XS; 1") {
+ if (eval"require Cpanel::JSON::XS; 1") {
plan tests => 7;
} else {
- plan skip_all => "No JSON::XS";
+ plan skip_all => "No Cpanel::JSON::XS";
exit; # not sure if this is needed
}
};
BEGIN { use_ok( 'Data::Dump::Streamer', qw(:undump) ); }
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
@@ -230,7 +229,7 @@
else {
$expected_dot = 'undef';
}
- my $jstrue= JSON::XS::decode_json("[true]")->[0];
+ my $jstrue= Cpanel::JSON::XS::decode_json("[true]")->[0];
my %hash = (
UND => undef,
IV => 1,
@@ -287,7 +286,7 @@
RV => \do { my $v = expected_dot },
UND => undef
};
-bless( $HASH1->{JSB}, 'JSON::XS::Boolean' );
+bless( $HASH1->{JSB}, 'Cpanel::JSON::XS::Boolean' );
EXPECT
require B::Deparse;
if (new B::Deparse -> coderef2text (
@@ -327,7 +326,7 @@
RV => \do { my $v = expected_dot },
UND => undef
};
-bless( $HASH1->{JSB}, 'JSON::XS::Boolean' );
+bless( $HASH1->{JSB}, 'Cpanel::JSON::XS::Boolean' );
EXPECT
}
elsif ( $] >= 5.008_000 ) {
@@ -361,7 +360,7 @@
RV => \do { my $v = expected_dot },
UND => undef
};
-bless( $HASH1->{JSB}, 'JSON::XS::Boolean' );
+bless( $HASH1->{JSB}, 'Cpanel::JSON::XS::Boolean' );
EXPECT
}
else {
@@ -387,13 +386,13 @@
RV => \do { my $v = expected_dot },
UND => undef
};
-bless( $HASH1->{JSB}, 'JSON::XS::Boolean' );
+bless( $HASH1->{JSB}, 'Cpanel::JSON::XS::Boolean' );
EXPECT
}
- # In JSON::XS < 3, the boolean class is JSON::XS::Boolean
- # In JSON::XS >= 3, the boolean class is JSON::PP::Boolean
- my $json_boolean_class = ref JSON::XS::decode_json("[true]")->[0];
- $expect =~ s{JSON::XS::Boolean}{$json_boolean_class}g;
+ # In Cpanel::JSON::XS before 3.0201, the boolean class is JSON::XS::Boolean
+ # and thereafter it is JSON::PP::Boolean
+ my $json_boolean_class = ref Cpanel::JSON::XS::decode_json("[true]")->[0];
+ $expect =~ s{Cpanel::JSON::XS::Boolean}{$json_boolean_class}g;
same( $dump= $o->Data(\%hash)->Out, template( $expect, expected_dot =>
$expected_dot ), "", $o);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/madness_w.t
new/Data-Dump-Streamer-2.41/t/madness_w.t
--- old/Data-Dump-Streamer-2.40/t/madness_w.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/madness_w.t 2023-01-27 07:07:39.000000000
+0100
@@ -14,8 +14,7 @@
unless eval { weaken($_ref) };
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/names.t
new/Data-Dump-Streamer-2.41/t/names.t
--- old/Data-Dump-Streamer-2.40/t/names.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/names.t 2023-01-27 07:07:39.000000000
+0100
@@ -7,8 +7,7 @@
#$Id: names.t 26 2006-04-16 15:18:52Z demerphq $#
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/overload.t
new/Data-Dump-Streamer-2.41/t/overload.t
--- old/Data-Dump-Streamer-2.40/t/overload.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/overload.t 2023-01-27 07:07:39.000000000
+0100
@@ -9,8 +9,7 @@
#$Id: overload.t 26 2006-04-16 15:18:52Z demerphq $#
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
sub dump_obj {
my $obj = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/sortkeys.t
new/Data-Dump-Streamer-2.41/t/sortkeys.t
--- old/Data-Dump-Streamer-2.40/t/sortkeys.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/sortkeys.t 2023-01-27 07:07:39.000000000
+0100
@@ -7,8 +7,7 @@
#$Id: sortkeys.t 26 2006-04-16 15:18:52Z demerphq $#
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Dump-Streamer-2.40/t/tree.t
new/Data-Dump-Streamer-2.41/t/tree.t
--- old/Data-Dump-Streamer-2.40/t/tree.t 2016-08-30 10:14:14.000000000
+0200
+++ new/Data-Dump-Streamer-2.41/t/tree.t 2023-01-27 07:07:39.000000000
+0100
@@ -7,8 +7,7 @@
#$Id: tree.t 26 2006-04-16 15:18:52Z demerphq $#
# imports same()
-(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
-require $helper;
+require "./t/test_helper.pl";
# use this one for simple, non evalable tests. (GLOB)
# same ( $got,$expected,$name,$obj )
#
