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 2021-01-28 21:22:25
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Syntax-Keyword-Try (Old)
and /work/SRC/openSUSE:Factory/.perl-Syntax-Keyword-Try.new.28504 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Syntax-Keyword-Try"
Thu Jan 28 21:22:25 2021 rev:9 rq:867234 version:0.21
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Syntax-Keyword-Try/perl-Syntax-Keyword-Try.changes
2020-11-24 22:14:00.087580173 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Syntax-Keyword-Try.new.28504/perl-Syntax-Keyword-Try.changes
2021-01-28 21:22:26.263641188 +0100
@@ -1,0 +2,11 @@
+Sat Jan 23 03:09:35 UTC 2021 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 0.21
+ see /usr/share/doc/packages/perl-Syntax-Keyword-Try/Changes
+
+ 0.21 2021-01-22
+ [CHANGES]
+ * Add some import configuration options required to make
+ Feature::Compat::Try work. Currently unit-tested but undocumented.
+
+-------------------------------------------------------------------
Old:
----
Syntax-Keyword-Try-0.20.tar.gz
New:
----
Syntax-Keyword-Try-0.21.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Syntax-Keyword-Try.spec ++++++
--- /var/tmp/diff_new_pack.a5Qn5S/_old 2021-01-28 21:22:26.731641930 +0100
+++ /var/tmp/diff_new_pack.a5Qn5S/_new 2021-01-28 21:22:26.731641930 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Syntax-Keyword-Try
#
-# Copyright (c) 2020 SUSE LLC
+# Copyright (c) 2021 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -16,17 +16,15 @@
#
+%define cpan_name Syntax-Keyword-Try
Name: perl-Syntax-Keyword-Try
-Version: 0.20
+Version: 0.21
Release: 0
-%define cpan_name Syntax-Keyword-Try
Summary: C<try/catch/finally> syntax for perl
License: Artistic-1.0 OR GPL-1.0-or-later
-Group: Development/Libraries/Perl
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(ExtUtils::CBuilder)
@@ -46,7 +44,7 @@
for perl code.
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{version}
%build
perl Build.PL installdirs=vendor optimize="%{optflags}"
@@ -60,7 +58,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes README
%license LICENSE
++++++ Syntax-Keyword-Try-0.20.tar.gz -> Syntax-Keyword-Try-0.21.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/Changes
new/Syntax-Keyword-Try-0.21/Changes
--- old/Syntax-Keyword-Try-0.20/Changes 2020-11-24 02:13:24.000000000 +0100
+++ new/Syntax-Keyword-Try-0.21/Changes 2021-01-22 15:48:29.000000000 +0100
@@ -1,5 +1,10 @@
Revision history for Syntax-Keyword-Try
+0.21 2021-01-22
+ [CHANGES]
+ * Add some import configuration options required to make
+ Feature::Compat::Try work. Currently unit-tested but undocumented.
+
0.20 2020-11-24
[BUGFIXES]
* Fix for perl 5.14 by #include'ing hax/ files in the right order
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/LICENSE
new/Syntax-Keyword-Try-0.21/LICENSE
--- old/Syntax-Keyword-Try-0.20/LICENSE 2020-11-24 02:13:24.000000000 +0100
+++ new/Syntax-Keyword-Try-0.21/LICENSE 2021-01-22 15:48:29.000000000 +0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2020 by Paul Evans <leon...@leonerd.org.uk>.
+This software is copyright (c) 2021 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) 2020 by Paul Evans <leon...@leonerd.org.uk>.
+This software is Copyright (c) 2021 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) 2020 by Paul Evans <leon...@leonerd.org.uk>.
+This software is Copyright (c) 2021 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.20/MANIFEST
new/Syntax-Keyword-Try-0.21/MANIFEST
--- old/Syntax-Keyword-Try-0.20/MANIFEST 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/MANIFEST 2021-01-22 15:48:29.000000000
+0100
@@ -23,6 +23,7 @@
t/14try-localises.t
t/20try-do.t
t/21try-do-finally.t
+t/30compat.t
t/80await+try.t
t/90rt123547.t
t/90rt125971.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/META.json
new/Syntax-Keyword-Try-0.21/META.json
--- old/Syntax-Keyword-Try-0.20/META.json 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/META.json 2021-01-22 15:48:29.000000000
+0100
@@ -38,7 +38,7 @@
"provides" : {
"Syntax::Keyword::Try" : {
"file" : "lib/Syntax/Keyword/Try.pm",
- "version" : "0.20"
+ "version" : "0.21"
}
},
"release_status" : "stable",
@@ -48,6 +48,6 @@
],
"x_IRC" : "irc://irc.perl.org/#io-async"
},
- "version" : "0.20",
+ "version" : "0.21",
"x_serialization_backend" : "JSON::PP version 4.05"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/META.yml
new/Syntax-Keyword-Try-0.21/META.yml
--- old/Syntax-Keyword-Try-0.20/META.yml 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/META.yml 2021-01-22 15:48:29.000000000
+0100
@@ -17,11 +17,11 @@
provides:
Syntax::Keyword::Try:
file: lib/Syntax/Keyword/Try.pm
- version: '0.20'
+ version: '0.21'
requires:
perl: '5.014'
resources:
IRC: irc://irc.perl.org/#io-async
license: http://dev.perl.org/licenses/
-version: '0.20'
+version: '0.21'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/lib/Syntax/Keyword/Try.pm
new/Syntax-Keyword-Try-0.21/lib/Syntax/Keyword/Try.pm
--- old/Syntax-Keyword-Try-0.20/lib/Syntax/Keyword/Try.pm 2020-11-24
02:13:24.000000000 +0100
+++ new/Syntax-Keyword-Try-0.21/lib/Syntax/Keyword/Try.pm 2021-01-22
15:48:29.000000000 +0100
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2016-2019 -- leon...@leonerd.org.uk
-package Syntax::Keyword::Try 0.20;
+package Syntax::Keyword::Try 0.21;
use v5.14;
use warnings;
@@ -390,7 +390,9 @@
$^H{"Syntax::Keyword::Try/try"}++ if delete $syms{try};
$^H{"Syntax::Keyword::Try/try_value"}++ if delete $syms{try_value};
- $^H{"Syntax::Keyword::Try/no_finally"}++ if delete $syms{no_finally};
+ # Largely for Feature::Compat::Try's benefit
+ $^H{"Syntax::Keyword::Try/no_finally"}++ if delete $syms{"-no_finally"};
+ $^H{"Syntax::Keyword::Try/require_var"}++ if delete $syms{"-require_var"};
# stablised experiments
delete $syms{":experimental($_)"} for qw( var );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/lib/Syntax/Keyword/Try.xs
new/Syntax-Keyword-Try-0.21/lib/Syntax/Keyword/Try.xs
--- old/Syntax-Keyword-Try-0.20/lib/Syntax/Keyword/Try.xs 2020-11-24
02:13:24.000000000 +0100
+++ new/Syntax-Keyword-Try-0.21/lib/Syntax/Keyword/Try.xs 2021-01-22
15:48:29.000000000 +0100
@@ -444,6 +444,8 @@
try = parse_scoped_block(0);
lex_read_space(0);
+ bool require_var = hints && hv_fetchs(hints,
"Syntax::Keyword::Try/require_var", 0);
+
while(lex_consume("catch")) {
OP *assignop = NULL, *condop = NULL;
OP *body;
@@ -514,6 +516,9 @@
intro_my();
}
+ else if(require_var) {
+ croak("Expected (VAR) for catch");
+ }
body = block_end(save_ix, parse_block(0));
lex_read_space(0);
@@ -554,8 +559,9 @@
SvREFCNT_dec(condcatch);
}
- if(!hv_fetchs(hints, "Syntax::Keyword::Try/no_finally", 0) &&
- lex_consume("finally")) {
+ bool no_finally = hints && hv_fetchs(hints,
"Syntax::Keyword::Try/no_finally", 0);
+
+ if(!no_finally && lex_consume("finally")) {
I32 floor_ix, save_ix;
OP *body;
@@ -581,7 +587,9 @@
if(!catch && !finally) {
op_free(try);
- croak("Expected try {} to be followed by either catch {} or finally {}");
+ croak(no_finally
+ ? "Expected try {} to be followed by catch {}"
+ : "Expected try {} to be followed by either catch {} or finally {}");
}
ret = try;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/01trycatch.t
new/Syntax-Keyword-Try-0.21/t/01trycatch.t
--- old/Syntax-Keyword-Try-0.20/t/01trycatch.t 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/01trycatch.t 2021-01-22 15:48:29.000000000
+0100
@@ -13,7 +13,7 @@
try {
$s = 1;
}
- catch {
+ catch ($e) {
$s = 2;
}
@@ -27,7 +27,7 @@
try {
die "oopsie";
}
- catch { }
+ catch ($e) { }
$s = 3;
"ok";
@@ -42,7 +42,7 @@
try {
die FALSE->new;
}
- catch {
+ catch ($e) {
$caught++;
}
@@ -55,17 +55,17 @@
}
}
-# catch sees $@
+# catch sees exception
{
- my $e;
+ my $caught;
try {
die "oopsie";
}
- catch {
- $e = $@;
+ catch ($e) {
+ $caught = $e;
}
- like( $e, qr/^oopsie at /, 'catch{} sees $@' );
+ like( $caught, qr/^oopsie at /, 'catch{} sees $@' );
}
# catch block executes
@@ -74,7 +74,7 @@
try {
die "oopsie";
}
- catch {
+ catch ($e) {
$s = 4;
}
@@ -86,7 +86,7 @@
my $caught;
ok( !eval {
try { die "oopsie"; }
- catch { $caught = $@; die $@ }
+ catch ($e) { $caught = $e; die $e }
}, 'die in catch{} is fatal' );
my $e = $@;
@@ -94,17 +94,18 @@
like( $caught, qr/^oopsie at /, 'exception was seen by catch{}' );
}
-# catch into new lexical
+# catch without VAR
{
try {
die "caught\n";
}
- catch ( $e ) {
- is( $e, "caught\n", 'exception is caught into new lexical' );
+ catch {
+ my $e = $@;
+ is( $e, "caught\n", 'exception visible in $@' );
}
}
-# catch into lexical does not retain
+# catch lexical does not retain
{
my $destroyed;
sub Canary::DESTROY { $destroyed++ }
@@ -112,7 +113,7 @@
try {
die bless [], "Canary";
}
- catch ( $e ) {
+ catch ($e) {
# don't touch $e
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/03trycatchfinally.t
new/Syntax-Keyword-Try-0.21/t/03trycatchfinally.t
--- old/Syntax-Keyword-Try-0.20/t/03trycatchfinally.t 2020-11-24
02:13:24.000000000 +0100
+++ new/Syntax-Keyword-Try-0.21/t/03trycatchfinally.t 2021-01-22
15:48:29.000000000 +0100
@@ -13,7 +13,7 @@
try {
$s = 1; # overwritten
}
- catch {
+ catch ($e) {
die "FAIL";
}
finally {
@@ -29,7 +29,7 @@
try {
die "oopsie";
}
- catch {
+ catch ($e) {
$s = 3;
}
finally {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/10snail.t
new/Syntax-Keyword-Try-0.21/t/10snail.t
--- old/Syntax-Keyword-Try-0.20/t/10snail.t 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/10snail.t 2021-01-22 15:48:29.000000000
+0100
@@ -12,7 +12,7 @@
my @args;
( sub {
try { @args = @_ }
- catch {}
+ catch ($e) {}
} )->( 1, 2, 3 );
is_deeply( \@args, [ 1, 2, 3 ], 'try{} sees surrounding @_' );
@@ -23,7 +23,7 @@
my @args;
( sub {
try { die "oopsie" }
- catch { @args = @_ }
+ catch ($e) { @args = @_ }
} )->( 4, 5, 6 );
is_deeply( \@args, [ 4, 5, 6 ], 'catch{} sees @_' );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/11loop.t
new/Syntax-Keyword-Try-0.21/t/11loop.t
--- old/Syntax-Keyword-Try-0.20/t/11loop.t 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/11loop.t 2021-01-22 15:48:29.000000000
+0100
@@ -15,7 +15,7 @@
$count++;
redo LOOP if $count < 2;
}
- catch { }
+ catch ($e) { }
}
is( $count, 2, 'try{redo} works' );
@@ -28,7 +28,7 @@
last LOOP2;
$after++; # just to put a statement after 'last'
}
- catch { }
+ catch ($e) { }
$count++;
}
@@ -42,7 +42,7 @@
try {
die "oopsie";
}
- catch {
+ catch ($e) {
$count++;
redo LOOP if $count < 2;
}
@@ -56,7 +56,7 @@
try {
die "oopsie";
}
- catch {
+ catch ($e) {
last LOOP2;
}
$count++;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/12return.t
new/Syntax-Keyword-Try-0.21/t/12return.t
--- old/Syntax-Keyword-Try-0.20/t/12return.t 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/12return.t 2021-01-22 15:48:29.000000000
+0100
@@ -14,7 +14,7 @@
is(
( sub {
try { return "result" }
- catch {}
+ catch ($e) {}
$after++;
return "nope";
} )->(),
@@ -28,7 +28,7 @@
{
is_deeply(
[ sub {
- try { return qw( A B C ) } catch {}
+ try { return qw( A B C ) } catch ($e) {}
}->() ],
[qw( A B C )],
'return LIST in try yields correct values'
@@ -43,9 +43,9 @@
( sub {
try {
try { return "result" }
- catch {}
+ catch ($e) {}
}
- catch {}
+ catch ($e) {}
$after++;
return "nope";
} )->(),
@@ -64,7 +64,7 @@
my $one = eval { return 1 };
$two = $one + 1;
}
- catch {}
+ catch ($e) {}
return $two;
} )->(),
2,
@@ -78,7 +78,7 @@
( sub {
my $ret = eval {
try { return "part"; }
- catch {}
+ catch ($e) {}
};
return "($ret)";
} )->(),
@@ -92,7 +92,7 @@
is(
( sub {
try { die "oopsie" }
- catch { return "result" }
+ catch ($e) { return "result" }
return "nope";
} )->(),
"result",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/14try-localises.t
new/Syntax-Keyword-Try-0.21/t/14try-localises.t
--- old/Syntax-Keyword-Try-0.20/t/14try-localises.t 2020-11-24
02:13:24.000000000 +0100
+++ new/Syntax-Keyword-Try-0.21/t/14try-localises.t 2021-01-22
15:48:29.000000000 +0100
@@ -12,7 +12,7 @@
eval { die "oopsie" };
like( $@, qr/^oopsie at /, '$@ before try/catch' );
- try { die "another failure" } catch {}
+ try { die "another failure" } catch ($e) {}
like( $@, qr/^oopsie at /, '$@ after try/catch' );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/20try-do.t
new/Syntax-Keyword-Try-0.21/t/20try-do.t
--- old/Syntax-Keyword-Try-0.20/t/20try-do.t 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/20try-do.t 2021-01-22 15:48:29.000000000
+0100
@@ -12,21 +12,21 @@
# try do { } yields result
{
- is( try do { "result" } catch {},
+ is( try do { "result" } catch ($e) {},
"result",
'try do { } yields result' );
}
# try do { } failure returns catch
{
- is( try do { die "oops\n" } catch { "failure" },
+ is( try do { die "oops\n" } catch ($e) { "failure" },
"failure",
'try do { } yields catch result on failure' );
}
# stack discipline
{
- my @v = ( 1, [ 2, try do { 3 } catch {}, 4 ], 5 );
+ my @v = ( 1, [ 2, try do { 3 } catch ($e) {}, 4 ], 5 );
is_deeply( \@v, [ 1, [ 2 .. 4 ], 5 ],
'try do { } preserves stack discipline' ) or
diag "Got ", explain \@v;
@@ -37,7 +37,7 @@
local $TODO = "list context";
no warnings 'void';
- my @v = try do { 1, 2, 3 } catch {};
+ my @v = try do { 1, 2, 3 } catch ($e) {};
is_deeply( \@v, [ 1 .. 3 ],
'try do can yield lists' );
}
@@ -49,7 +49,7 @@
eval { die "oopsie" };
- my $ret = try do { die "another failure" } catch {};
+ my $ret = try do { die "another failure" } catch ($e) {};
like( $@, qr/^oopsie at /, '$@ after try do/catch' );
}
@@ -67,7 +67,7 @@
my $warnings = "";
local $SIG{__WARN__} = sub { $warnings .= join "", @_ };
- eval "try do { 1 } catch { 2 }" or die $@;
+ eval "try do { 1 } catch (\$e) { 2 }" or die $@;
like( $warnings, qr/^'try do' syntax is experimental/,
'try do syntax produces experimental warnings' );
@@ -76,7 +76,7 @@
use Syntax::Keyword::Try qw( :experimental(try_value) );
$warnings = "";
- eval "try do { 3 } catch { 4 }" or die $@;
+ eval "try do { 3 } catch (\$e) { 4 }" or die $@;
is( $warnings, "", 'no warnings when :experimental(try_value) is enabled' );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/21try-do-finally.t
new/Syntax-Keyword-Try-0.21/t/21try-do-finally.t
--- old/Syntax-Keyword-Try-0.20/t/21try-do-finally.t 2020-11-24
02:13:24.000000000 +0100
+++ new/Syntax-Keyword-Try-0.21/t/21try-do-finally.t 2021-01-22
15:48:29.000000000 +0100
@@ -28,7 +28,7 @@
{
my $x;
my $result = try do { $x .= 4; die "oops" }
- catch { $x .= 5; "failure" }
+ catch ($e) { $x .= 5; "failure" }
finally { $x .= 6 };
is( $result, "failure", 'try do {} catch finally catches exception' );
is( $x, "456", 'try do {} catch finally has finally side-effect' );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/30compat.t
new/Syntax-Keyword-Try-0.21/t/30compat.t
--- old/Syntax-Keyword-Try-0.20/t/30compat.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/30compat.t 2021-01-22 15:48:29.000000000
+0100
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use v5.14;
+use warnings;
+
+use Test::More;
+
+use Syntax::Keyword::Try;
+
+# forbidding finally
+{
+ use Syntax::Keyword::Try '-no_finally';
+
+ ok( !defined eval <<'EOPERL',
+ try { 123 }
+ finally { 456 }
+EOPERL
+ 'try/finally is forbidden' );
+ like( $@, qr/^Expected try \{\} to be followed by catch \{\} / );
+}
+
+# require var
+{
+ use Syntax::Keyword::Try '-require_var';
+
+ ok( !defined eval <<'EOPERL',
+ try { 123 }
+ catch { 456 }
+EOPERL
+ 'try/catch requires var' );
+ like( $@, qr/^Expected \(VAR\) for catch / );
+}
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/80await+try.t
new/Syntax-Keyword-Try-0.21/t/80await+try.t
--- old/Syntax-Keyword-Try-0.20/t/80await+try.t 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/80await+try.t 2021-01-22 15:48:29.000000000
+0100
@@ -34,7 +34,7 @@
await $f;
$ret = "result";
}
- catch {
+ catch ($e) {
$ret = "oopsie";
}
return $ret;
@@ -65,7 +65,7 @@
await $f;
return "result";
}
- catch {}
+ catch ($e) {}
$fellthrough++;
return "fallthrough";
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/90rt123547.t
new/Syntax-Keyword-Try-0.21/t/90rt123547.t
--- old/Syntax-Keyword-Try-0.20/t/90rt123547.t 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/90rt123547.t 2021-01-22 15:48:29.000000000
+0100
@@ -29,7 +29,7 @@
$x = "a";
die "oops";
}
- catch {
+ catch ($e) {
$x .= "b";
}
finally {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.20/t/90rt125971.t
new/Syntax-Keyword-Try-0.21/t/90rt125971.t
--- old/Syntax-Keyword-Try-0.20/t/90rt125971.t 2020-11-24 02:13:24.000000000
+0100
+++ new/Syntax-Keyword-Try-0.21/t/90rt125971.t 2021-01-22 15:48:29.000000000
+0100
@@ -13,8 +13,8 @@
try {
return 123;
}
- catch {
- die "Something terrible happened: $@";
+ catch ($e) {
+ die "Something terrible happened: $e";
}
}
@@ -25,8 +25,8 @@
@result = (1, scalar inner()); # scalar or void context is mandatory
1; # or catch will be triggered
}
- catch {
- die "Something terrible happened: $@";
+ catch ($e) {
+ die "Something terrible happened: $e";
}
return @result;
}
