Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Syntax-Keyword-Try for
openSUSE:Factory checked in at 2023-07-27 16:50:39
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Syntax-Keyword-Try (Old)
and /work/SRC/openSUSE:Factory/.perl-Syntax-Keyword-Try.new.32662 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Syntax-Keyword-Try"
Thu Jul 27 16:50:39 2023 rev:16 rq:1101009 version:0.290.0
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Syntax-Keyword-Try/perl-Syntax-Keyword-Try.changes
2022-12-14 14:10:58.759487403 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Syntax-Keyword-Try.new.32662/perl-Syntax-Keyword-Try.changes
2023-07-27 16:51:03.501898972 +0200
@@ -1,0 +2,13 @@
+Fri Jul 14 03:06:53 UTC 2023 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 0.29
+ see /usr/share/doc/packages/perl-Syntax-Keyword-Try/Changes
+
+ 0.29 2023-07-13
+ [CHANGES]
+ * Updates to compile cleanly on perl v5.38
+ * Remember to implement `no Syntax::Keyword::Try` to disable the
+ syntax
+ * Swap all the unit tests to `Test2::V0`
+
+-------------------------------------------------------------------
Old:
----
Syntax-Keyword-Try-0.28.tar.gz
New:
----
Syntax-Keyword-Try-0.29.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Syntax-Keyword-Try.spec ++++++
--- /var/tmp/diff_new_pack.TPyJ5q/_old 2023-07-27 16:51:04.129902520 +0200
+++ /var/tmp/diff_new_pack.TPyJ5q/_new 2023-07-27 16:51:04.133902542 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Syntax-Keyword-Try
#
-# Copyright (c) 2022 SUSE LLC
+# 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
@@ -18,21 +18,25 @@
%define cpan_name Syntax-Keyword-Try
Name: perl-Syntax-Keyword-Try
-Version: 0.28
+Version: 0.290.0
Release: 0
+%define cpan_version 0.29
+Provides: perl(Syntax::Keyword::Try) = 0.290.0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Try/catch/finally syntax for perl
URL: https://metacpan.org/release/%{cpan_name}
-Source0:
https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{version}.tar.gz
+Source0:
https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{cpan_version}.tar.gz
Source1: cpanspec.yml
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(ExtUtils::CBuilder)
BuildRequires: perl(Module::Build) >= 0.400400
-BuildRequires: perl(Test::More) >= 0.88
+BuildRequires: perl(Test2::V0)
BuildRequires: perl(XS::Parse::Keyword) >= 0.06
BuildRequires: perl(XS::Parse::Keyword::Builder) >= 0.06
Requires: perl(XS::Parse::Keyword) >= 0.06
+Provides: perl(Syntax::Keyword::Try::Deparse) = 0.290.0
+%define __perllib_provides /bin/true
%{perl_requires}
%description
@@ -53,17 +57,17 @@
'Syntax::Keyword::Try' on older perls.
%prep
-%autosetup -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{cpan_version}
%build
-perl Build.PL installdirs=vendor optimize="%{optflags}"
-./Build build flags=%{?_smp_mflags}
+perl Build.PL --installdirs=vendor optimize="%{optflags}"
+./Build build --flags=%{?_smp_mflags}
%check
./Build test
%install
-./Build install destdir=%{buildroot} create_packlist=0
+./Build install --destdir=%{buildroot} --create_packlist=0
%perl_gen_filelist
%files -f %{name}.files
++++++ Syntax-Keyword-Try-0.28.tar.gz -> Syntax-Keyword-Try-0.29.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/.editorconfig
new/Syntax-Keyword-Try-0.29/.editorconfig
--- old/Syntax-Keyword-Try-0.28/.editorconfig 1970-01-01 01:00:00.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/.editorconfig 2023-07-13 12:10:09.000000000
+0200
@@ -0,0 +1,4 @@
+root = true
+
+[*.{pm,pl,t}]
+indent_size = 3
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/Build.PL
new/Syntax-Keyword-Try-0.29/Build.PL
--- old/Syntax-Keyword-Try-0.28/Build.PL 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/Build.PL 2023-07-13 12:10:09.000000000
+0200
@@ -8,7 +8,7 @@
my $build = Module::Build->new(
module_name => "Syntax::Keyword::Try",
test_requires => {
- 'Test::More' => '0.88', # done_testing
+ 'Test2::V0' => 0,
},
configure_requires => {
'Module::Build' => '0.4004', # test_requires
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/Changes
new/Syntax-Keyword-Try-0.29/Changes
--- old/Syntax-Keyword-Try-0.28/Changes 2022-12-08 15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/Changes 2023-07-13 12:10:09.000000000 +0200
@@ -1,5 +1,12 @@
Revision history for Syntax-Keyword-Try
+0.29 2023-07-13
+ [CHANGES]
+ * Updates to compile cleanly on perl v5.38
+ * Remember to implement `no Syntax::Keyword::Try` to disable the
+ syntax
+ * Swap all the unit tests to `Test2::V0`
+
0.28 2022-12-08
[CHANGES]
* Account for the new structure of ->cop_warnings in perl v5.37.6
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/LICENSE
new/Syntax-Keyword-Try-0.29/LICENSE
--- old/Syntax-Keyword-Try-0.28/LICENSE 2022-12-08 15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/LICENSE 2023-07-13 12:10:09.000000000 +0200
@@ -1,4 +1,4 @@
-This software is copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>.
+This software is copyright (c) 2023 by Paul Evans <leon...@leonerd.org.uk>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>.
+This software is Copyright (c) 2023 by Paul Evans <leon...@leonerd.org.uk>.
This is free software, licensed under:
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>.
+This software is Copyright (c) 2023 by Paul Evans <leon...@leonerd.org.uk>.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/MANIFEST
new/Syntax-Keyword-Try-0.29/MANIFEST
--- old/Syntax-Keyword-Try-0.28/MANIFEST 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/MANIFEST 2023-07-13 12:10:09.000000000
+0200
@@ -1,3 +1,4 @@
+.editorconfig
Build.PL
Changes
hax/newOP_CUSTOM.c.inc
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/META.json
new/Syntax-Keyword-Try-0.29/META.json
--- old/Syntax-Keyword-Try-0.28/META.json 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/META.json 2023-07-13 12:10:09.000000000
+0200
@@ -33,18 +33,18 @@
},
"test" : {
"requires" : {
- "Test::More" : "0.88"
+ "Test2::V0" : "0"
}
}
},
"provides" : {
"Syntax::Keyword::Try" : {
"file" : "lib/Syntax/Keyword/Try.pm",
- "version" : "0.28"
+ "version" : "0.29"
},
"Syntax::Keyword::Try::Deparse" : {
"file" : "lib/Syntax/Keyword/Try/Deparse.pm",
- "version" : "0.28"
+ "version" : "0.29"
}
},
"release_status" : "stable",
@@ -54,6 +54,6 @@
],
"x_IRC" : "irc://irc.perl.org/#io-async"
},
- "version" : "0.28",
+ "version" : "0.29",
"x_serialization_backend" : "JSON::PP version 4.07"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/META.yml
new/Syntax-Keyword-Try-0.29/META.yml
--- old/Syntax-Keyword-Try-0.28/META.yml 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/META.yml 2023-07-13 12:10:09.000000000
+0200
@@ -4,7 +4,7 @@
- 'Paul Evans <leon...@leonerd.org.uk>'
build_requires:
ExtUtils::CBuilder: '0'
- Test::More: '0.88'
+ Test2::V0: '0'
configure_requires:
Module::Build: '0.4004'
XS::Parse::Keyword::Builder: '0.06'
@@ -18,15 +18,15 @@
provides:
Syntax::Keyword::Try:
file: lib/Syntax/Keyword/Try.pm
- version: '0.28'
+ version: '0.29'
Syntax::Keyword::Try::Deparse:
file: lib/Syntax/Keyword/Try/Deparse.pm
- version: '0.28'
+ version: '0.29'
requires:
XS::Parse::Keyword: '0.06'
perl: '5.014'
resources:
IRC: irc://irc.perl.org/#io-async
license: http://dev.perl.org/licenses/
-version: '0.28'
+version: '0.29'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/hax/perl-additions.c.inc
new/Syntax-Keyword-Try-0.29/hax/perl-additions.c.inc
--- old/Syntax-Keyword-Try-0.28/hax/perl-additions.c.inc 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/hax/perl-additions.c.inc 2023-07-13
12:10:09.000000000 +0200
@@ -177,7 +177,7 @@
# define fetch_superclass_method_pv(stash, pv, len, level)
S_fetch_superclass_method_pv(aTHX_ stash, pv, len, level)
static CV *S_fetch_superclass_method_pv(pTHX_ HV *stash, const char *pv,
STRLEN len, U32 level)
{
-#if HAVE_PERL_VERSION(5, 18, 0)
+# if HAVE_PERL_VERSION(5, 18, 0)
GV *gv = gv_fetchmeth_pvn(stash, pv, len, level, GV_SUPER);
# else
SV *superclassname = newSVpvf("%*s::SUPER", HvNAMELEN_get(stash),
HvNAME_get(stash));
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/hax/perl-backcompat.c.inc
new/Syntax-Keyword-Try-0.29/hax/perl-backcompat.c.inc
--- old/Syntax-Keyword-Try-0.28/hax/perl-backcompat.c.inc 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/hax/perl-backcompat.c.inc 2023-07-13
12:10:09.000000000 +0200
@@ -164,6 +164,11 @@
# define isIDCONT_utf8_safe(s, e) (PERL_UNUSED_ARG(e), isIDCONT_utf8(s))
#endif
+#ifndef CXp_EVALBLOCK
+/* before perl 5.34 this was called CXp_TRYBLOCK */
+# define CXp_EVALBLOCK CXp_TRYBLOCK
+#endif
+
#if !HAVE_PERL_VERSION(5, 26, 0)
# define sv_set_undef(sv) sv_setsv(sv, &PL_sv_undef)
#endif
@@ -193,17 +198,19 @@
}
#endif
-#ifdef PERL_USE_GCC_BRACE_GROUPS
-# define xV_FROM_REF(XV, ref) \
+#ifndef xV_FROM_REF
+# ifdef PERL_USE_GCC_BRACE_GROUPS
+# define xV_FROM_REF(XV, ref) \
({ SV *_ref = ref; assert(SvROK(_ref)); assert(SvTYPE(SvRV(_ref)) == SVt_PV
## XV); (XV *)(SvRV(_ref)); })
-#else
-# define xV_FROM_REF(XV, ref) ((XV *)SvRV(ref))
+# else
+# define xV_FROM_REF(XV, ref) ((XV *)SvRV(ref))
+# endif
+
+# define AV_FROM_REF(ref) xV_FROM_REF(AV, ref)
+# define CV_FROM_REF(ref) xV_FROM_REF(CV, ref)
+# define HV_FROM_REF(ref) xV_FROM_REF(HV, ref)
#endif
-#define AV_FROM_REF(ref) xV_FROM_REF(AV, ref)
-#define CV_FROM_REF(ref) xV_FROM_REF(CV, ref)
-#define HV_FROM_REF(ref) xV_FROM_REF(HV, ref)
-
#ifndef newPADxVOP
# define newPADxVOP(type, flags, padix) S_newPADxVOP(aTHX_ type, flags,
padix)
static OP *S_newPADxVOP(pTHX_ I32 type, I32 flags, PADOFFSET padix)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Syntax-Keyword-Try-0.28/lib/Syntax/Keyword/Try/Deparse.pm
new/Syntax-Keyword-Try-0.29/lib/Syntax/Keyword/Try/Deparse.pm
--- old/Syntax-Keyword-Try-0.28/lib/Syntax/Keyword/Try/Deparse.pm
2022-12-08 15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/lib/Syntax/Keyword/Try/Deparse.pm
2023-07-13 12:10:09.000000000 +0200
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2021 -- leon...@leonerd.org.uk
-package Syntax::Keyword::Try::Deparse 0.28;
+package Syntax::Keyword::Try::Deparse 0.29;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/lib/Syntax/Keyword/Try.pm
new/Syntax-Keyword-Try-0.29/lib/Syntax/Keyword/Try.pm
--- old/Syntax-Keyword-Try-0.28/lib/Syntax/Keyword/Try.pm 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/lib/Syntax/Keyword/Try.pm 2023-07-13
12:10:09.000000000 +0200
@@ -1,9 +1,9 @@
# You may distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
-# (C) Paul Evans, 2016-2022 -- leon...@leonerd.org.uk
+# (C) Paul Evans, 2016-2023 -- leon...@leonerd.org.uk
-package Syntax::Keyword::Try 0.28;
+package Syntax::Keyword::Try 0.29;
use v5.14;
use warnings;
@@ -353,38 +353,49 @@
sub import
{
- my $class = shift;
+ my $pkg = shift;
my $caller = caller;
- $class->import_into( $caller, @_ );
+ $pkg->import_into( $caller, @_ );
+}
+
+sub unimport
+{
+ my $pkg = shift;
+ my $caller = caller;
+
+ $pkg->unimport_into( $caller, @_ );
}
my @EXPERIMENTAL = qw( typed );
-sub import_into
+sub import_into { shift->apply( sub { $^H{ $_[0] }++ }, @_ ) }
+sub unimport_into { shift->apply( sub { delete $^H{ $_[0] } }, @_ ) }
+
+sub apply
{
- my $class = shift;
- my ( $caller, @syms ) = @_;
+ my $pkg = shift;
+ my ( $cb, $caller, @syms ) = @_;
@syms or @syms = qw( try );
my %syms = map { $_ => 1 } @syms;
- $^H{"Syntax::Keyword::Try/try"}++ if delete $syms{try};
+ $cb->( "Syntax::Keyword::Try/try" ) if delete $syms{try};
# Largely for Feature::Compat::Try's benefit
- $^H{"Syntax::Keyword::Try/no_finally"}++ if delete $syms{"-no_finally"};
- $^H{"Syntax::Keyword::Try/require_catch"}++ if delete
$syms{"-require_catch"};
- $^H{"Syntax::Keyword::Try/require_var"}++ if delete $syms{"-require_var"};
+ $cb->( "Syntax::Keyword::Try/no_finally" ) if delete
$syms{"-no_finally"};
+ $cb->( "Syntax::Keyword::Try/require_catch" ) if delete
$syms{"-require_catch"};
+ $cb->( "Syntax::Keyword::Try/require_var" ) if delete
$syms{"-require_var"};
# stablised experiments
delete $syms{":experimental($_)"} for qw( var );
foreach ( @EXPERIMENTAL ) {
- $^H{"Syntax::Keyword::Try/experimental($_)"}++ if delete
$syms{":experimental($_)"};
+ $cb->( "Syntax::Keyword::Try/experimental($_)" ) if delete
$syms{":experimental($_)"};
}
if( delete $syms{":experimental"} ) {
- $^H{"Syntax::Keyword::Try/experimental($_)"}++ for @EXPERIMENTAL;
+ $cb->( "Syntax::Keyword::Try/experimental($_)" ) for @EXPERIMENTAL;
}
# Ignore requests for these, as they come automatically with `try`
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/00use.t
new/Syntax-Keyword-Try-0.29/t/00use.t
--- old/Syntax-Keyword-Try-0.28/t/00use.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/00use.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,8 +3,9 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
-use_ok( "Syntax::Keyword::Try" );
+require Syntax::Keyword::Try;
+pass( "Modules loaded" );
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/01trycatch.t
new/Syntax-Keyword-Try-0.29/t/01trycatch.t
--- old/Syntax-Keyword-Try-0.28/t/01trycatch.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/01trycatch.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
@@ -120,4 +120,12 @@
ok( $destroyed, 'catch ($var) does not retain value' );
}
+{
+ no Syntax::Keyword::Try;
+
+ sub try { return "normal function" }
+
+ is( try, "normal function", 'try() parses as a normal function call' );
+}
+
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/02tryfinally.t
new/Syntax-Keyword-Try-0.29/t/02tryfinally.t
--- old/Syntax-Keyword-Try-0.28/t/02tryfinally.t 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/t/02tryfinally.t 2023-07-13
12:10:09.000000000 +0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/03trycatchfinally.t
new/Syntax-Keyword-Try-0.29/t/03trycatchfinally.t
--- old/Syntax-Keyword-Try-0.28/t/03trycatchfinally.t 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/t/03trycatchfinally.t 2023-07-13
12:10:09.000000000 +0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/04catch-types.t
new/Syntax-Keyword-Try-0.29/t/04catch-types.t
--- old/Syntax-Keyword-Try-0.28/t/04catch-types.t 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/t/04catch-types.t 2023-07-13
12:10:09.000000000 +0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try qw( try :experimental );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/10snail.t
new/Syntax-Keyword-Try-0.29/t/10snail.t
--- old/Syntax-Keyword-Try-0.28/t/10snail.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/10snail.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
@@ -15,7 +15,7 @@
catch ($e) {}
} )->( 1, 2, 3 );
- is_deeply( \@args, [ 1, 2, 3 ], 'try{} sees surrounding @_' );
+ is( \@args, [ 1, 2, 3 ], 'try{} sees surrounding @_' );
}
# catch sees @_
@@ -26,7 +26,7 @@
catch ($e) { @args = @_ }
} )->( 4, 5, 6 );
- is_deeply( \@args, [ 4, 5, 6 ], 'catch{} sees @_' );
+ is( \@args, [ 4, 5, 6 ], 'catch{} sees @_' );
}
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/11loop.t
new/Syntax-Keyword-Try-0.29/t/11loop.t
--- old/Syntax-Keyword-Try-0.28/t/11loop.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/11loop.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/12return.t
new/Syntax-Keyword-Try-0.29/t/12return.t
--- old/Syntax-Keyword-Try-0.28/t/12return.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/12return.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
@@ -33,7 +33,7 @@
# return LIST from try
{
- is_deeply(
+ is(
[ sub {
try { return qw( A B C ) } catch ($e) {}
}->() ],
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/13die-in-finally.t
new/Syntax-Keyword-Try-0.29/t/13die-in-finally.t
--- old/Syntax-Keyword-Try-0.28/t/13die-in-finally.t 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/t/13die-in-finally.t 2023-07-13
12:10:09.000000000 +0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/14try-localises.t
new/Syntax-Keyword-Try-0.29/t/14try-localises.t
--- old/Syntax-Keyword-Try-0.28/t/14try-localises.t 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/t/14try-localises.t 2023-07-13
12:10:09.000000000 +0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/15context.t
new/Syntax-Keyword-Try-0.29/t/15context.t
--- old/Syntax-Keyword-Try-0.28/t/15context.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/15context.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/16final-expr.t
new/Syntax-Keyword-Try-0.29/t/16final-expr.t
--- old/Syntax-Keyword-Try-0.28/t/16final-expr.t 2022-12-08
15:27:49.000000000 +0100
+++ new/Syntax-Keyword-Try-0.29/t/16final-expr.t 2023-07-13
12:10:09.000000000 +0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
@@ -19,7 +19,7 @@
try { 1, 2, 3 }
catch ($e) { 4, 5, 6 }
};
- is_deeply(\@list, [1, 2, 3], 'do { try } in list context');
+ is(\@list, [1, 2, 3], 'do { try } in list context');
}
# catch as final expression yields correct value
@@ -34,7 +34,7 @@
try { die "Oops" }
catch ($e) { 4, 5, 6 }
};
- is_deeply(\@list, [4, 5, 6], 'do { try/catch } in list context');
+ is(\@list, [4, 5, 6], 'do { try/catch } in list context');
$scalar = do {
try { die "Oops" }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/30compat.t
new/Syntax-Keyword-Try-0.29/t/30compat.t
--- old/Syntax-Keyword-Try-0.28/t/30compat.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/30compat.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/70deparse.t
new/Syntax-Keyword-Try-0.29/t/70deparse.t
--- old/Syntax-Keyword-Try-0.28/t/70deparse.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/70deparse.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
use Syntax::Keyword::Try::Deparse;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/80await+SKT.t
new/Syntax-Keyword-Try-0.29/t/80await+SKT.t
--- old/Syntax-Keyword-Try-0.28/t/80await+SKT.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/80await+SKT.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
BEGIN {
plan skip_all => "Future is not available"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/80defer+SKT.t
new/Syntax-Keyword-Try-0.29/t/80defer+SKT.t
--- old/Syntax-Keyword-Try-0.28/t/80defer+SKT.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/80defer+SKT.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
BEGIN {
plan skip_all => "Syntax::Keyword::Defer >= 0.02 is not available"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/90rt123547.t
new/Syntax-Keyword-Try-0.29/t/90rt123547.t
--- old/Syntax-Keyword-Try-0.28/t/90rt123547.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/90rt123547.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,8 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
+use Test2::IPC;
# RT123547 observes that if S:K:T is loaded late after multiple threads
# are actually started, it will crash
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/90rt125971.t
new/Syntax-Keyword-Try-0.29/t/90rt125971.t
--- old/Syntax-Keyword-Try-0.28/t/90rt125971.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/90rt125971.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
use Syntax::Keyword::Try;
@@ -31,7 +31,7 @@
return @result;
}
-is_deeply [ outer() ], [ 1, 123 ], "No extra data in return";
+is [ outer() ], [ 1, 123 ], "No extra data in return";
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.28/t/99pod.t
new/Syntax-Keyword-Try-0.29/t/99pod.t
--- old/Syntax-Keyword-Try-0.28/t/99pod.t 2022-12-08 15:27:49.000000000
+0100
+++ new/Syntax-Keyword-Try-0.29/t/99pod.t 2023-07-13 12:10:09.000000000
+0200
@@ -3,7 +3,7 @@
use v5.14;
use warnings;
-use Test::More;
+use Test2::V0;
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
