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 <timueller+p...@suse.de> + +- 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 <y...@cpan.org>, Joshua ben Jore <jj...@cpan.org>" ], "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 ) #