Hello community,
here is the log from the commit of package perl-Syntax-Keyword-Try for
openSUSE:Factory checked in at 2020-07-09 17:44:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Syntax-Keyword-Try (Old)
and /work/SRC/openSUSE:Factory/.perl-Syntax-Keyword-Try.new.3060 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Syntax-Keyword-Try"
Thu Jul 9 17:44:33 2020 rev:4 rq:819718 version:0.14
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Syntax-Keyword-Try/perl-Syntax-Keyword-Try.changes
2020-07-06 16:31:48.343625407 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Syntax-Keyword-Try.new.3060/perl-Syntax-Keyword-Try.changes
2020-07-09 17:44:34.104592646 +0200
@@ -1,0 +2,12 @@
+Wed Jul 8 03:09:34 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 0.14
+ see /usr/share/doc/packages/perl-Syntax-Keyword-Try/Changes
+
+ 0.14 2020-07-07
+ * Optional experimental syntax of `catch (VAR)` instead of previous
+ experimental `catch my VAR`
+ * Mark `catch my VAR` as deprecated
+ * Added explicit use VERSION declarations to every perl file
+
+-------------------------------------------------------------------
Old:
----
Syntax-Keyword-Try-0.13.tar.gz
New:
----
Syntax-Keyword-Try-0.14.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Syntax-Keyword-Try.spec ++++++
--- /var/tmp/diff_new_pack.2NtP2T/_old 2020-07-09 17:44:34.916595217 +0200
+++ /var/tmp/diff_new_pack.2NtP2T/_new 2020-07-09 17:44:34.920595231 +0200
@@ -17,7 +17,7 @@
Name: perl-Syntax-Keyword-Try
-Version: 0.13
+Version: 0.14
Release: 0
%define cpan_name Syntax-Keyword-Try
Summary: C<try/catch/finally> syntax for perl
++++++ Syntax-Keyword-Try-0.13.tar.gz -> Syntax-Keyword-Try-0.14.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/Build.PL
new/Syntax-Keyword-Try-0.14/Build.PL
--- old/Syntax-Keyword-Try-0.13/Build.PL 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/Build.PL 2020-07-07 23:39:09.000000000
+0200
@@ -1,3 +1,4 @@
+use v5;
use strict;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/Changes
new/Syntax-Keyword-Try-0.14/Changes
--- old/Syntax-Keyword-Try-0.13/Changes 2020-06-29 21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/Changes 2020-07-07 23:39:09.000000000 +0200
@@ -1,5 +1,11 @@
Revision history for Syntax-Keyword-Try
+0.14 2020-07-07
+ * Optional experimental syntax of `catch (VAR)` instead of previous
+ experimental `catch my VAR`
+ * Mark `catch my VAR` as deprecated
+ * Added explicit use VERSION declarations to every perl file
+
0.13 2020-06-29
[BUGFIXES]
* Pack correct MANIFEST to include hax/ files
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/META.json
new/Syntax-Keyword-Try-0.14/META.json
--- old/Syntax-Keyword-Try-0.13/META.json 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/META.json 2020-07-07 23:39:09.000000000
+0200
@@ -38,7 +38,7 @@
"provides" : {
"Syntax::Keyword::Try" : {
"file" : "lib/Syntax/Keyword/Try.pm",
- "version" : "0.13"
+ "version" : "0.14"
}
},
"release_status" : "stable",
@@ -48,6 +48,6 @@
],
"x_IRC" : "irc://irc.perl.org/#io-async"
},
- "version" : "0.13",
+ "version" : "0.14",
"x_serialization_backend" : "JSON::PP version 4.04"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/META.yml
new/Syntax-Keyword-Try-0.14/META.yml
--- old/Syntax-Keyword-Try-0.13/META.yml 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/META.yml 2020-07-07 23:39:09.000000000
+0200
@@ -17,11 +17,11 @@
provides:
Syntax::Keyword::Try:
file: lib/Syntax/Keyword/Try.pm
- version: '0.13'
+ version: '0.14'
requires:
perl: '5.014'
resources:
IRC: irc://irc.perl.org/#io-async
license: http://dev.perl.org/licenses/
-version: '0.13'
+version: '0.14'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/README
new/Syntax-Keyword-Try-0.14/README
--- old/Syntax-Keyword-Try-0.13/README 2020-06-29 21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/README 2020-07-07 23:39:09.000000000 +0200
@@ -80,7 +80,7 @@
Or
...
- catch my $var {
+ catch ($var) {
STATEMENTS...
}
@@ -278,16 +278,9 @@
dispatch in perl needs to handle both isa and string regexp testing at
the same site.
- My latest thinking on this front may involve some syntax such as:
-
- try {
- ...
- }
- catch my $e
- (isa Some::Exception::Class) { ... },
- (=~ m/^An error message /) { ... }
-
- or
+ My latest thinking on this front may involve some syntax looking
+ simplar to a sub with a signature that declares a single parameter,
+ such as:
try {
...
@@ -295,16 +288,7 @@
catch ($e isa Some::Exception::Class) { ... },
($e =~ m/^An error message /) { ... }
- Or maybe the catch keyword would be repeated per line, though that then
- involves repeating the error variable name also:
-
- try {
- ...
- }
- catch my $e (isa Some::Exception::Class) { ... }
- catch my $e (=~ m/^An error message /) { ... }
-
- or
+ Or maybe the catch keyword would be repeated per line:
try {
...
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/hax/perl-additions.c.inc
new/Syntax-Keyword-Try-0.14/hax/perl-additions.c.inc
--- old/Syntax-Keyword-Try-0.13/hax/perl-additions.c.inc 2020-06-29
21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/hax/perl-additions.c.inc 2020-07-07
23:39:09.000000000 +0200
@@ -45,9 +45,11 @@
#if HAVE_PERL_VERSION(5,22,0)
# define newLOGOP_CUSTOM(flags, first, other) newLOGOP(OP_CUSTOM, flags,
first, other)
# define newSVOP_CUSTOM(flags, sv) newSVOP(OP_CUSTOM, flags, sv)
+# define newUNOP_CUSTOM(flags, first) newUNOP(OP_CUSTOM, flags,
first)
#else
# define newLOGOP_CUSTOM(flags, first, other) S_newLOGOP_CUSTOM(aTHX_ flags,
first, other)
# define newSVOP_CUSTOM(flags, sv) S_newSVOP_CUSTOM(aTHX_ flags,
sv)
+# define newUNOP_CUSTOM(flags, first) S_newUNOP_CUSTOM(aTHX_ flags,
first)
static OP *S_newLOGOP_CUSTOM(pTHX_ U32 flags, OP *first, OP *other)
{
@@ -92,4 +94,16 @@
return (OP *)svop;
}
+static OP *S_newUNOP_CUSTOM(pTHX_ U32 flags, OP *first)
+{
+ UNOP *unop;
+ NewOp(1101, unop, 1, UNOP);
+ unop->op_type = (OPCODE)OP_CUSTOM;
+ unop->op_ppaddr = NULL; /* Because caller only overrides it anyway */
+ unop->op_first = first;
+ unop->op_flags = (U8)(flags | OPf_KIDS);
+ unop->op_private = (U8)(1 | (flags >> 8));
+ return (OP *)unop;
+}
+
#endif
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/lib/Syntax/Keyword/Try.pm
new/Syntax-Keyword-Try-0.14/lib/Syntax/Keyword/Try.pm
--- old/Syntax-Keyword-Try-0.13/lib/Syntax/Keyword/Try.pm 2020-06-29
21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/lib/Syntax/Keyword/Try.pm 2020-07-07
23:39:09.000000000 +0200
@@ -3,17 +3,15 @@
#
# (C) Paul Evans, 2016-2019 -- [email protected]
-package Syntax::Keyword::Try;
+package Syntax::Keyword::Try 0.14;
-use strict;
+use v5.14;
use warnings;
-our $VERSION = '0.13';
-
use Carp;
require XSLoader;
-XSLoader::load( __PACKAGE__, $VERSION );
+XSLoader::load( __PACKAGE__, our $VERSION );
=head1 NAME
@@ -98,7 +96,7 @@
Or
...
- catch my $var {
+ catch ($var) {
STATEMENTS...
}
@@ -308,16 +306,8 @@
(such as "dumbmatch"). Exception dispatch in perl needs to handle both C<isa>
and string regexp testing at the same site.
-My latest thinking on this front may involve some syntax such as:
-
- try {
- ...
- }
- catch my $e
- (isa Some::Exception::Class) { ... },
- (=~ m/^An error message /) { ... }
-
-or
+My latest thinking on this front may involve some syntax looking simplar to a
+C<sub> with a signature that declares a single parameter, such as:
try {
...
@@ -325,16 +315,7 @@
catch ($e isa Some::Exception::Class) { ... },
($e =~ m/^An error message /) { ... }
-Or maybe the C<catch> keyword would be repeated per line, though that then
-involves repeating the error variable name also:
-
- try {
- ...
- }
- catch my $e (isa Some::Exception::Class) { ... }
- catch my $e (=~ m/^An error message /) { ... }
-
-or
+Or maybe the C<catch> keyword would be repeated per line:
try {
...
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/lib/Syntax/Keyword/Try.xs
new/Syntax-Keyword-Try-0.14/lib/Syntax/Keyword/Try.xs
--- old/Syntax-Keyword-Try-0.13/lib/Syntax/Keyword/Try.xs 2020-06-29
21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/lib/Syntax/Keyword/Try.xs 2020-07-07
23:39:09.000000000 +0200
@@ -446,14 +446,29 @@
lex_read_space(0);
if(lex_consume("my")) {
+ Perl_ck_warner(aTHX_ packWARN(WARN_DEPRECATED),
+ "'catch my VAR' syntax is deprecated and will be removed a later
version");
+
+ lex_read_space(0);
+ catchvar = parse_lexvar();
+
+ lex_read_space(0);
+
+ intro_my();
+ }
+ else if(lex_consume("(")) {
#ifdef WARN_EXPERIMENTAL
Perl_ck_warner(aTHX_ packWARN(WARN_EXPERIMENTAL),
- "'catch my VAR' syntax is experimental and may be changed or removed
without notice");
+ "'catch (VAR)' syntax is experimental and may be changed or removed
without notice");
#endif
lex_read_space(0);
catchvar = parse_lexvar();
lex_read_space(0);
+ if(!lex_consume(")"))
+ croak("Expected close paren for catch (VAR)");
+
+ lex_read_space(0);
intro_my();
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/00use.t
new/Syntax-Keyword-Try-0.14/t/00use.t
--- old/Syntax-Keyword-Try-0.13/t/00use.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/00use.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/01trycatch.t
new/Syntax-Keyword-Try-0.14/t/01trycatch.t
--- old/Syntax-Keyword-Try-0.13/t/01trycatch.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/01trycatch.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
@@ -100,12 +100,23 @@
{
no if HAVE_WARN_EXPERIMENTAL, warnings => 'experimental';
+ # new style
try {
die "caught\n";
}
- catch my $e {
+ catch ( $e ) {
is( $e, "caught\n", 'exception is caught into new lexical' );
}
+
+ no warnings 'deprecated';
+
+ # old style
+ try {
+ die "caught\n";
+ }
+ catch my $e {
+ is( $e, "caught\n", 'exception is caught into new lexical (old style)' );
+ }
}
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/02tryfinally.t
new/Syntax-Keyword-Try-0.14/t/02tryfinally.t
--- old/Syntax-Keyword-Try-0.13/t/02tryfinally.t 2020-06-29
21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/t/02tryfinally.t 2020-07-07
23:39:09.000000000 +0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/03trycatchfinally.t
new/Syntax-Keyword-Try-0.14/t/03trycatchfinally.t
--- old/Syntax-Keyword-Try-0.13/t/03trycatchfinally.t 2020-06-29
21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/t/03trycatchfinally.t 2020-07-07
23:39:09.000000000 +0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/10snail.t
new/Syntax-Keyword-Try-0.14/t/10snail.t
--- old/Syntax-Keyword-Try-0.13/t/10snail.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/10snail.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/11loop.t
new/Syntax-Keyword-Try-0.14/t/11loop.t
--- old/Syntax-Keyword-Try-0.13/t/11loop.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/11loop.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/12return.t
new/Syntax-Keyword-Try-0.14/t/12return.t
--- old/Syntax-Keyword-Try-0.13/t/12return.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/12return.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/13die-in-finally.t
new/Syntax-Keyword-Try-0.14/t/13die-in-finally.t
--- old/Syntax-Keyword-Try-0.13/t/13die-in-finally.t 2020-06-29
21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/t/13die-in-finally.t 2020-07-07
23:39:09.000000000 +0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/14try-localises.t
new/Syntax-Keyword-Try-0.14/t/14try-localises.t
--- old/Syntax-Keyword-Try-0.13/t/14try-localises.t 2020-06-29
21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/t/14try-localises.t 2020-07-07
23:39:09.000000000 +0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/20try-do.t
new/Syntax-Keyword-Try-0.14/t/20try-do.t
--- old/Syntax-Keyword-Try-0.13/t/20try-do.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/20try-do.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/21try-do-finally.t
new/Syntax-Keyword-Try-0.14/t/21try-do-finally.t
--- old/Syntax-Keyword-Try-0.13/t/21try-do-finally.t 2020-06-29
21:23:56.000000000 +0200
+++ new/Syntax-Keyword-Try-0.14/t/21try-do-finally.t 2020-07-07
23:39:09.000000000 +0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/80await+try.t
new/Syntax-Keyword-Try-0.14/t/80await+try.t
--- old/Syntax-Keyword-Try-0.13/t/80await+try.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/80await+try.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/90rt123547.t
new/Syntax-Keyword-Try-0.14/t/90rt123547.t
--- old/Syntax-Keyword-Try-0.13/t/90rt123547.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/90rt123547.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/90rt125971.t
new/Syntax-Keyword-Try-0.14/t/90rt125971.t
--- old/Syntax-Keyword-Try-0.13/t/90rt125971.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/90rt125971.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Syntax-Keyword-Try-0.13/t/99pod.t
new/Syntax-Keyword-Try-0.14/t/99pod.t
--- old/Syntax-Keyword-Try-0.13/t/99pod.t 2020-06-29 21:23:56.000000000
+0200
+++ new/Syntax-Keyword-Try-0.14/t/99pod.t 2020-07-07 23:39:09.000000000
+0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use strict;
+use v5.14;
use warnings;
use Test::More;
