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 2022-02-24 18:21:11
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Syntax-Keyword-Try (Old)
and /work/SRC/openSUSE:Factory/.perl-Syntax-Keyword-Try.new.1958 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Syntax-Keyword-Try"
Thu Feb 24 18:21:11 2022 rev:14 rq:957387 version:0.27
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Syntax-Keyword-Try/perl-Syntax-Keyword-Try.changes
2021-10-23 00:52:01.157148965 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Syntax-Keyword-Try.new.1958/perl-Syntax-Keyword-Try.changes
2022-02-24 18:24:42.870638775 +0100
@@ -1,0 +2,11 @@
+Mon Feb 21 03:13:26 UTC 2022 - Tina M??ller <[email protected]>
+
+- updated to 0.27
+ see /usr/share/doc/packages/perl-Syntax-Keyword-Try/Changes
+
+ 0.27 2022-02-22
+ [CHANGES]
+ * Updates to support Feature::Compat::Try 0.05 with new `finally {}`
+ blocks
+
+-------------------------------------------------------------------
Old:
----
Syntax-Keyword-Try-0.26.tar.gz
New:
----
Syntax-Keyword-Try-0.27.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Syntax-Keyword-Try.spec ++++++
--- /var/tmp/diff_new_pack.XUM7N7/_old 2022-02-24 18:24:43.254638676 +0100
+++ /var/tmp/diff_new_pack.XUM7N7/_new 2022-02-24 18:24:43.258638674 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Syntax-Keyword-Try
#
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2022 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,10 +18,10 @@
%define cpan_name Syntax-Keyword-Try
Name: perl-Syntax-Keyword-Try
-Version: 0.26
+Version: 0.27
Release: 0
-Summary: C<try/catch/finally> syntax for perl
License: Artistic-1.0 OR GPL-1.0-or-later
+Summary: C<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
Source1: cpanspec.yml
++++++ Syntax-Keyword-Try-0.26.tar.gz -> Syntax-Keyword-Try-0.27.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/Changes
new/Syntax-Keyword-Try-0.27/Changes
--- old/Syntax-Keyword-Try-0.26/Changes 2021-10-12 19:12:24.000000000 +0200
+++ new/Syntax-Keyword-Try-0.27/Changes 2022-02-20 19:03:20.000000000 +0100
@@ -1,5 +1,10 @@
Revision history for Syntax-Keyword-Try
+0.27 2022-02-22
+ [CHANGES]
+ * Updates to support Feature::Compat::Try 0.05 with new `finally {}`
+ blocks
+
0.26 2021-10-12
[CHANGES]
* Many internal updates to hax/ support files
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/LICENSE
new/Syntax-Keyword-Try-0.27/LICENSE
--- old/Syntax-Keyword-Try-0.26/LICENSE 2021-10-12 19:12:24.000000000 +0200
+++ new/Syntax-Keyword-Try-0.27/LICENSE 2022-02-20 19:03:20.000000000 +0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2021 by Paul Evans <[email protected]>.
+This software is copyright (c) 2022 by Paul Evans <[email protected]>.
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) 2021 by Paul Evans <[email protected]>.
+This software is Copyright (c) 2022 by Paul Evans <[email protected]>.
This is free software, licensed under:
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2021 by Paul Evans <[email protected]>.
+This software is Copyright (c) 2022 by Paul Evans <[email protected]>.
This is free software, licensed under:
@@ -292,21 +292,21 @@
- "Package" refers to the collection of files distributed by the Copyright
Holder, and derivatives of that collection of files created through
- textual modification.
+ textual modification.
- "Standard Version" refers to such a Package if it has not been modified,
or has been modified in accordance with the wishes of the Copyright
- Holder.
+ Holder.
- "Copyright Holder" is whoever is named in the copyright or copyrights for
- the package.
+ the package.
- "You" is you, if you're thinking about copying or distributing this
Package.
- "Reasonable copying fee" is whatever you can justify on the basis of media
cost, duplication charges, time of people involved, and so on. (You will
not be required to justify it to the Copyright Holder, but only to the
- computing community at large as a market that must bear the fee.)
+ computing community at large as a market that must bear the fee.)
- "Freely Available" means that no fee is charged for the item itself, though
there may be fees involved in handling the item. It also means that
recipients of the item may redistribute it under the same conditions they
- received it.
+ received it.
1. You may make and give away verbatim copies of the source form of the
Standard Version of this Package without restriction, provided that you
@@ -373,7 +373,7 @@
9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
The End
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/MANIFEST
new/Syntax-Keyword-Try-0.27/MANIFEST
--- old/Syntax-Keyword-Try-0.26/MANIFEST 2021-10-12 19:12:24.000000000
+0200
+++ new/Syntax-Keyword-Try-0.27/MANIFEST 2022-02-20 19:03:20.000000000
+0100
@@ -8,11 +8,7 @@
lib/Syntax/Keyword/Try.pm
lib/Syntax/Keyword/Try.xs
lib/Syntax/Keyword/Try/Deparse.pm
-LICENSE
MANIFEST This list of files
-META.json
-META.yml
-README
t/00use.t
t/01trycatch.t
t/02tryfinally.t
@@ -32,3 +28,7 @@
t/90rt123547.t
t/90rt125971.t
t/99pod.t
+README
+LICENSE
+META.yml
+META.json
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/META.json
new/Syntax-Keyword-Try-0.27/META.json
--- old/Syntax-Keyword-Try-0.26/META.json 2021-10-12 19:12:24.000000000
+0200
+++ new/Syntax-Keyword-Try-0.27/META.json 2022-02-20 19:03:20.000000000
+0100
@@ -40,11 +40,11 @@
"provides" : {
"Syntax::Keyword::Try" : {
"file" : "lib/Syntax/Keyword/Try.pm",
- "version" : "0.26"
+ "version" : "0.27"
},
"Syntax::Keyword::Try::Deparse" : {
"file" : "lib/Syntax/Keyword/Try/Deparse.pm",
- "version" : "0.26"
+ "version" : "0.27"
}
},
"release_status" : "stable",
@@ -54,6 +54,6 @@
],
"x_IRC" : "irc://irc.perl.org/#io-async"
},
- "version" : "0.26",
- "x_serialization_backend" : "JSON::PP version 4.05"
+ "version" : "0.27",
+ "x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/META.yml
new/Syntax-Keyword-Try-0.27/META.yml
--- old/Syntax-Keyword-Try-0.26/META.yml 2021-10-12 19:12:24.000000000
+0200
+++ new/Syntax-Keyword-Try-0.27/META.yml 2022-02-20 19:03:20.000000000
+0100
@@ -18,15 +18,15 @@
provides:
Syntax::Keyword::Try:
file: lib/Syntax/Keyword/Try.pm
- version: '0.26'
+ version: '0.27'
Syntax::Keyword::Try::Deparse:
file: lib/Syntax/Keyword/Try/Deparse.pm
- version: '0.26'
+ version: '0.27'
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.26'
+version: '0.27'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/README
new/Syntax-Keyword-Try-0.27/README
--- old/Syntax-Keyword-Try-0.26/README 2021-10-12 19:12:24.000000000 +0200
+++ new/Syntax-Keyword-Try-0.27/README 2022-02-20 19:03:20.000000000 +0100
@@ -209,14 +209,6 @@
warning and discarded, leaving $@ containing the original exception, if
one existed.
- Note that the finally syntax is not available when using this module
- via Feature::Compat::Try, as it is not expected that syntax will be
- added to the core perl 'try' feature. This is because a more
- general-purpose ability may be added instead, under the name 'defer'.
- If you wish to write code that may more easily be forward-compatible
- with that feature instead, you should consider using
- Syntax::Keyword::Defer rather than using finally statements.
-
OTHER MODULES
There are already quite a number of modules on CPAN that provide a
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Syntax-Keyword-Try-0.26/lib/Syntax/Keyword/Try/Deparse.pm
new/Syntax-Keyword-Try-0.27/lib/Syntax/Keyword/Try/Deparse.pm
--- old/Syntax-Keyword-Try-0.26/lib/Syntax/Keyword/Try/Deparse.pm
2021-10-12 19:12:24.000000000 +0200
+++ new/Syntax-Keyword-Try-0.27/lib/Syntax/Keyword/Try/Deparse.pm
2022-02-20 19:03:20.000000000 +0100
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2021 -- [email protected]
-package Syntax::Keyword::Try::Deparse 0.26;
+package Syntax::Keyword::Try::Deparse 0.27;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/lib/Syntax/Keyword/Try.pm
new/Syntax-Keyword-Try-0.27/lib/Syntax/Keyword/Try.pm
--- old/Syntax-Keyword-Try-0.26/lib/Syntax/Keyword/Try.pm 2021-10-12
19:12:24.000000000 +0200
+++ new/Syntax-Keyword-Try-0.27/lib/Syntax/Keyword/Try.pm 2022-02-20
19:03:20.000000000 +0100
@@ -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-2021 -- [email protected]
+# (C) Paul Evans, 2016-2022 -- [email protected]
-package Syntax::Keyword::Try 0.26;
+package Syntax::Keyword::Try 0.27;
use v5.14;
use warnings;
@@ -223,14 +223,6 @@
exception, this will be printed as a warning and discarded, leaving C<$@>
containing the original exception, if one existed.
-Note that the C<finally> syntax is not available when using this module via
-L<Feature::Compat::Try>, as it is not expected that syntax will be added to
-the core perl C<'try'> feature. This is because a more general-purpose ability
-may be added instead, under the name C<'defer'>. If you wish to write code
-that may more easily be forward-compatible with that feature instead, you
-should consider using L<Syntax::Keyword::Defer> rather than using C<finally>
-statements.
-
=head1 OTHER MODULES
There are already quite a number of modules on CPAN that provide a
@@ -380,8 +372,9 @@
$^H{"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_var"}++ if delete $syms{"-require_var"};
+ $^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"};
# stablised experiments
delete $syms{":experimental($_)"} for qw( var );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/lib/Syntax/Keyword/Try.xs
new/Syntax-Keyword-Try-0.27/lib/Syntax/Keyword/Try.xs
--- old/Syntax-Keyword-Try-0.26/lib/Syntax/Keyword/Try.xs 2021-10-12
19:12:24.000000000 +0200
+++ new/Syntax-Keyword-Try-0.27/lib/Syntax/Keyword/Try.xs 2022-02-20
19:03:20.000000000 +0100
@@ -412,7 +412,8 @@
OP *ret = NULL;
HV *hints = GvHV(PL_hintgv);
- bool require_var = hints && hv_fetchs(hints,
"Syntax::Keyword::Try/require_var", 0);
+ bool require_catch = hints && hv_fetchs(hints,
"Syntax::Keyword::Try/require_catch", 0);
+ bool require_var = hints && hv_fetchs(hints,
"Syntax::Keyword::Try/require_var", 0);
U32 ncatches = args[argi++]->i;
@@ -529,6 +530,9 @@
SvREFCNT_dec(condcatch);
}
+ if(require_catch && !catch)
+ croak("Expected a catch {} block");
+
bool no_finally = hints && hv_fetchs(hints,
"Syntax::Keyword::Try/no_finally", 0);
U32 has_finally = args[argi++]->i;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.26/t/13die-in-finally.t
new/Syntax-Keyword-Try-0.27/t/13die-in-finally.t
--- old/Syntax-Keyword-Try-0.26/t/13die-in-finally.t 2021-10-12
19:12:24.000000000 +0200
+++ new/Syntax-Keyword-Try-0.27/t/13die-in-finally.t 2022-02-20
19:03:20.000000000 +0100
@@ -9,7 +9,8 @@
# finally does not disturb $@
{
- local $SIG{__WARN__} = sub {};
+ my $warnings = "";
+ local $SIG{__WARN__} = sub { $warnings .= $_[0]; };
ok( !eval {
try {
@@ -21,6 +22,7 @@
1;
}, 'die in both try{} and finally{} is still fatal' );
like( $@, qr/^oopsie at /, 'die in finally{} does not corrupt $@' );
+ like( $warnings, qr/double oops at /, 'die in finally{} warns inner
exception' );
}
done_testing;
