Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-XS-Parse-Keyword for
openSUSE:Factory checked in at 2022-06-28 15:21:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-XS-Parse-Keyword (Old)
and /work/SRC/openSUSE:Factory/.perl-XS-Parse-Keyword.new.1548 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-XS-Parse-Keyword"
Tue Jun 28 15:21:33 2022 rev:7 rq:985284 version:0.24
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-XS-Parse-Keyword/perl-XS-Parse-Keyword.changes
2022-06-02 21:55:02.412432048 +0200
+++
/work/SRC/openSUSE:Factory/.perl-XS-Parse-Keyword.new.1548/perl-XS-Parse-Keyword.changes
2022-06-28 15:21:43.733884762 +0200
@@ -1,0 +2,16 @@
+Mon Jun 27 03:06:59 UTC 2022 - Tina M??ller <[email protected]>
+
+- updated to 0.24
+ see /usr/share/doc/packages/perl-XS-Parse-Keyword/Changes
+
+ 0.24 2022-06-26
+ [CHANGES]
+ * Skip attempting to create duplicate wrapper funcs, in case of
+ multiple registrations of the same operator with different
+ spellings
+
+ [BUGFIXES]
+ * Arrange extra_linker_flags correctly while building probe program
+ for PL_infix_plugin
+
+-------------------------------------------------------------------
Old:
----
XS-Parse-Keyword-0.23.tar.gz
New:
----
XS-Parse-Keyword-0.24.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-XS-Parse-Keyword.spec ++++++
--- /var/tmp/diff_new_pack.mTzk86/_old 2022-06-28 15:21:44.317885634 +0200
+++ /var/tmp/diff_new_pack.mTzk86/_new 2022-06-28 15:21:44.325885646 +0200
@@ -18,7 +18,7 @@
%define cpan_name XS-Parse-Keyword
Name: perl-XS-Parse-Keyword
-Version: 0.23
+Version: 0.24
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: XS functions to assist in parsing keyword syntax
++++++ XS-Parse-Keyword-0.23.tar.gz -> XS-Parse-Keyword-0.24.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/XS-Parse-Keyword-0.23/Build.PL
new/XS-Parse-Keyword-0.24/Build.PL
--- old/XS-Parse-Keyword-0.23/Build.PL 2022-05-18 18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/Build.PL 2022-06-26 20:38:08.000000000 +0200
@@ -32,6 +32,15 @@
{
print "Checking for PL_infix_plugin...\n";
+ # Teach $cc how to find and link to libperl
+ require Config;
+ require Text::ParseWords;
+
+ my @linker_flags = (
+ "-L" . File::Spec->catdir($Config::Config{archlibexp}, "CORE"),
+ "-lperl", Text::ParseWords::shellwords( $Config::Config{libs} ),
+ );
+
my $have_pl_infix_plugin = 0;
# No released version of perl (yet) has PL_infix_plugin. This commandline
@@ -39,6 +48,7 @@
$have_pl_infix_plugin = 1 if grep { $_ eq "--have-pl_infix_plugin" } @ARGV;
$have_pl_infix_plugin ||= $cc->try_compile_run(
+ extra_linker_flags => \@linker_flags,
source => <<'EOF'
#include "EXTERN.h"
#include "perl.h"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/XS-Parse-Keyword-0.23/Changes
new/XS-Parse-Keyword-0.24/Changes
--- old/XS-Parse-Keyword-0.23/Changes 2022-05-18 18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/Changes 2022-06-26 20:38:08.000000000 +0200
@@ -1,5 +1,15 @@
Revision history for XS-Parse-Keyword
+0.24 2022-06-26
+ [CHANGES]
+ * Skip attempting to create duplicate wrapper funcs, in case of
+ multiple registrations of the same operator with different
+ spellings
+
+ [BUGFIXES]
+ * Arrange extra_linker_flags correctly while building probe program
+ for PL_infix_plugin
+
0.23 2022-05-18
[CHANGES]
* Defined XPK_KEYWORD, a better version of XPK_LITERAL for
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/XS-Parse-Keyword-0.23/META.json
new/XS-Parse-Keyword-0.24/META.json
--- old/XS-Parse-Keyword-0.23/META.json 2022-05-18 18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/META.json 2022-06-26 20:38:08.000000000 +0200
@@ -40,19 +40,19 @@
"provides" : {
"XS::Parse::Infix" : {
"file" : "lib/XS/Parse/Infix.pm",
- "version" : "0.23"
+ "version" : "0.24"
},
"XS::Parse::Infix::Builder" : {
"file" : "lib/XS/Parse/Infix/Builder.pm",
- "version" : "0.23"
+ "version" : "0.24"
},
"XS::Parse::Keyword" : {
"file" : "lib/XS/Parse/Keyword.pm",
- "version" : "0.23"
+ "version" : "0.24"
},
"XS::Parse::Keyword::Builder" : {
"file" : "lib/XS/Parse/Keyword/Builder.pm",
- "version" : "0.23"
+ "version" : "0.24"
}
},
"release_status" : "stable",
@@ -61,6 +61,6 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "0.23",
+ "version" : "0.24",
"x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/XS-Parse-Keyword-0.23/META.yml
new/XS-Parse-Keyword-0.24/META.yml
--- old/XS-Parse-Keyword-0.23/META.yml 2022-05-18 18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/META.yml 2022-06-26 20:38:08.000000000 +0200
@@ -19,19 +19,19 @@
provides:
XS::Parse::Infix:
file: lib/XS/Parse/Infix.pm
- version: '0.23'
+ version: '0.24'
XS::Parse::Infix::Builder:
file: lib/XS/Parse/Infix/Builder.pm
- version: '0.23'
+ version: '0.24'
XS::Parse::Keyword:
file: lib/XS/Parse/Keyword.pm
- version: '0.23'
+ version: '0.24'
XS::Parse::Keyword::Builder:
file: lib/XS/Parse/Keyword/Builder.pm
- version: '0.23'
+ version: '0.24'
requires:
perl: '5.014'
resources:
license: http://dev.perl.org/licenses/
-version: '0.23'
+version: '0.24'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/XS-Parse-Keyword-0.23/lib/XS/Parse/Infix/Builder.pm
new/XS-Parse-Keyword-0.24/lib/XS/Parse/Infix/Builder.pm
--- old/XS-Parse-Keyword-0.23/lib/XS/Parse/Infix/Builder.pm 2022-05-18
18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/lib/XS/Parse/Infix/Builder.pm 2022-06-26
20:38:08.000000000 +0200
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2021 -- [email protected]
-package XS::Parse::Infix::Builder 0.23;
+package XS::Parse::Infix::Builder 0.24;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/XS-Parse-Keyword-0.23/lib/XS/Parse/Infix/Builder_data.pm.PL
new/XS-Parse-Keyword-0.24/lib/XS/Parse/Infix/Builder_data.pm.PL
--- old/XS-Parse-Keyword-0.23/lib/XS/Parse/Infix/Builder_data.pm.PL
2022-05-18 18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/lib/XS/Parse/Infix/Builder_data.pm.PL
2022-06-26 20:38:08.000000000 +0200
@@ -28,7 +28,7 @@
<$in_h> } );
__DATA__
-package XS::Parse::Infix::Builder_data 0.23;
+package XS::Parse::Infix::Builder_data 0.24;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/XS-Parse-Keyword-0.23/lib/XS/Parse/Infix.pm
new/XS-Parse-Keyword-0.24/lib/XS/Parse/Infix.pm
--- old/XS-Parse-Keyword-0.23/lib/XS/Parse/Infix.pm 2022-05-18
18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/lib/XS/Parse/Infix.pm 2022-06-26
20:38:08.000000000 +0200
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2021 -- [email protected]
-package XS::Parse::Infix 0.23;
+package XS::Parse::Infix 0.24;
use v5.14;
use warnings;
@@ -311,6 +311,13 @@
This optimisation is only performed if the operator declared it safe to do so,
via the C<XPI_OPERAND_ONLY_LOOK> flag.
+If a function of the given name already exists at registration time it will be
+left undisturbed and no new wrapper will be created. This permits the same
+infix operator to have multiple spellings of its name; for example to allow
+both a real Unicode and a fallback ASCII transliteration of the same operator.
+The first registration will create the wrapper function; the subsequent one
+will skip it because it would otherwise be identical.
+
=cut
=head1 DEPARSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/XS-Parse-Keyword-0.23/lib/XS/Parse/Keyword/Builder.pm
new/XS-Parse-Keyword-0.24/lib/XS/Parse/Keyword/Builder.pm
--- old/XS-Parse-Keyword-0.23/lib/XS/Parse/Keyword/Builder.pm 2022-05-18
18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/lib/XS/Parse/Keyword/Builder.pm 2022-06-26
20:38:08.000000000 +0200
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2021 -- [email protected]
-package XS::Parse::Keyword::Builder 0.23;
+package XS::Parse::Keyword::Builder 0.24;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/XS-Parse-Keyword-0.23/lib/XS/Parse/Keyword/Builder_data.pm.PL
new/XS-Parse-Keyword-0.24/lib/XS/Parse/Keyword/Builder_data.pm.PL
--- old/XS-Parse-Keyword-0.23/lib/XS/Parse/Keyword/Builder_data.pm.PL
2022-05-18 18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/lib/XS/Parse/Keyword/Builder_data.pm.PL
2022-06-26 20:38:08.000000000 +0200
@@ -28,7 +28,7 @@
<$in_h> } );
__DATA__
-package XS::Parse::Keyword::Builder_data 0.23;
+package XS::Parse::Keyword::Builder_data 0.24;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/XS-Parse-Keyword-0.23/lib/XS/Parse/Keyword.pm
new/XS-Parse-Keyword-0.24/lib/XS/Parse/Keyword.pm
--- old/XS-Parse-Keyword-0.23/lib/XS/Parse/Keyword.pm 2022-05-18
18:50:09.000000000 +0200
+++ new/XS-Parse-Keyword-0.24/lib/XS/Parse/Keyword.pm 2022-06-26
20:38:08.000000000 +0200
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2021-2022 -- [email protected]
-package XS::Parse::Keyword 0.23;
+package XS::Parse::Keyword 0.24;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/XS-Parse-Keyword-0.23/src/infix.c
new/XS-Parse-Keyword-0.24/src/infix.c
--- old/XS-Parse-Keyword-0.23/src/infix.c 2022-05-18 18:50:09.000000000
+0200
+++ new/XS-Parse-Keyword-0.24/src/infix.c 2022-06-26 20:38:08.000000000
+0200
@@ -446,12 +446,18 @@
static void make_wrapper_func(pTHX_ const struct HooksAndData *hd)
{
+ SV *funcname = newSVpvn(hd->hooks->wrapper_func_name,
strlen(hd->hooks->wrapper_func_name));
+ if(gv_fetchsv(funcname, 0, 0)) {
+ /* The wrapper function already exists. We presume this is due to a
duplicate
+ * registration of identical hooks under a different name and just skip
+ */
+ return;
+ }
+
/* Prepare to make a new optree-based CV */
I32 floor_ix = start_subparse(FALSE, 0);
SAVEFREESV(PL_compcv);
- SV *funcname = newSVpvn(hd->hooks->wrapper_func_name,
strlen(hd->hooks->wrapper_func_name));
-
I32 save_ix = block_start(TRUE);
OP *body = NULL;
