0.18 bump

This commit is contained in:
Petr Písař 2021-09-29 15:19:20 +02:00
parent 1802750cf8
commit 0344237d19
4 changed files with 7 additions and 57 deletions

1
.gitignore vendored
View File

@ -12,3 +12,4 @@
/XS-Parse-Keyword-0.15.tar.gz
/XS-Parse-Keyword-0.16.tar.gz
/XS-Parse-Keyword-0.17.tar.gz
/XS-Parse-Keyword-0.18.tar.gz

View File

@ -1,52 +0,0 @@
From 2dfc35ab974d068d1e27e1ad146c114562a54a3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Fri, 24 Sep 2021 13:53:26 +0200
Subject: [PATCH] Fix t/infix.xs failure on non-x86 platforms
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Previously, an invocation of t::infix::addpairsfunc() warned and returned bad data:
$ perl -Iblib/{lib,arch} t/71infix-wrapper.t
ok 1 - add wrapper func
ok 2 - intersperse wrapper func
Use of uninitialized value in custom infix operator at t/71infix-wrapper.t line 15.
Use of uninitialized value in custom infix operator at t/71infix-wrapper.t line 15.
not ok 3 - addpairs wrapper func
# Failed test 'addpairs wrapper func'
# at t/71infix-wrapper.t line 26.
# Structures begin differing at:
# $got->[0] = '3'
# $expected->[0] = '4'
ok 4 - callchecker generated an OP_CUSTOM call
This error exhibited e.g. on aarch64 platform. This patch fixes it without
understanding what's going on.
CPAN RT#139445
Signed-off-by: Petr Písař <ppisar@redhat.com>
---
t/infix.xs | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/t/infix.xs b/t/infix.xs
index 5f1472e..c848470 100644
--- a/t/infix.xs
+++ b/t/infix.xs
@@ -108,7 +108,10 @@ OP *pp_addpairs(pTHX)
PUSHMARK(SP);
while(lhs_count || rhs_count) {
- mPUSHi(SvIV(*lhs) + SvIV(*rhs));
+ /* Without an intermediate storage, mPUSHi() reports an undefined value.
+ * CPAN RT#139445 */
+ IV o = SvIV(*lhs) + SvIV(*rhs);
+ mPUSHi(o);
lhs++; lhs_count--;
rhs++; rhs_count--;
--
2.31.1

View File

@ -2,16 +2,13 @@
%bcond_without perl_XS_Parse_Keyword_enables_optional_test
Name: perl-XS-Parse-Keyword
Version: 0.17
Version: 0.18
Release: 1%{?dist}
Summary: XS functions to assist in parsing keyword syntax
License: GPL+ or Artistic
URL: https://metacpan.org/release/XS-Parse-Keyword
Source0: https://cpan.metacpan.org/authors/id/P/PE/PEVANS/XS-Parse-Keyword-%{version}.tar.gz
Source1: macros.perl-XS-Parse-Keyword
# Fix a test failure on non-x86 platforms, bug #2007391, CPAN RT#139445,
# proposed to the upstream.
Patch0: XS-Parse-Keyword-0.17-Fix-t-infix.xs-failure-on-non-x86-platforms.patch
BuildRequires: coreutils
BuildRequires: perl-devel
BuildRequires: perl-generators
@ -30,6 +27,7 @@ BuildRequires: perl(constant)
BuildRequires: perl(XSLoader)
# Tests:
BuildRequires: perl(B::Deparse)
BuildRequires: perl(overload)
BuildRequires: perl(Test::More) >= 0.88
BuildRequires: perl(utf8)
%if %{with perl_XS_Parse_Keyword_enables_optional_test}
@ -144,6 +142,9 @@ export HARNESS_OPTIONS=j$(perl -e 'if ($ARGV[0] =~ /.*-j([0-9][0-9]*).*/) {print
%{_libexecdir}/%{name}
%changelog
* Wed Sep 29 2021 Petr Pisar <ppisar@redhat.com> - 0.18-1
- 0.18 bump
* Fri Sep 24 2021 Petr Pisar <ppisar@redhat.com> - 0.17-1
- 0.17 bump
- Fix a test failure on non-x86 platforms (bug #2007391)

View File

@ -1 +1 @@
SHA512 (XS-Parse-Keyword-0.17.tar.gz) = f8cd4f0f2975e5547a4fc1dbe62e5beefaee63f076f7c201b1d5fc32b48223b1d1377ca570947d5c37d6e4d3730ed4f87d8ae060af767d9ba71c03a21bcb1b61
SHA512 (XS-Parse-Keyword-0.18.tar.gz) = ad5d3bba200faf63ba2fc81b38c4e3f54fdb602615c2f7e89d3a3693ac30faf17576d0e38981459d02f310fdfc82bfc049cbc7d4fbdf851f44dd1629ee0870b6