rpm/perl-List-MoreUtils-XS
SHA256
1
0
Fork 0
forked from pool/perl-List-MoreUtils-XS
Code Pull Requests Activity

Accepting request 523596 from home:Andreas_Schwab:Factory

Browse Source 
- format.patch: fix format errors
- undefined.patch: fix undefined operation

OBS-URL: https://build.opensuse.org/request/show/523596
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-List-MoreUtils-XS?expand=0&rev=8
This commit is contained in:
Stephan Kulow 2017-09-12 09:28:26 +00:00 committed by Git OBS Bridge
parent cb133459c6
commit bf8e7ea6bf
5 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpanspec.yml
View File

@ -10,6 +10,8 @@
#patches:
# foo.patch: -p1
# bar.patch:
format.patch: -p1
undefined.patch: -p1
#preamble: |-
# BuildRequires: gcc-c++
#post_prep: |-

13
format.patch Normal file
View File

@ -0,0 +1,13 @@
Index: List-MoreUtils-XS-0.423/XS.xs
===================================================================
--- List-MoreUtils-XS-0.423.orig/XS.xs
+++ List-MoreUtils-XS-0.423/XS.xs
@@ -2310,7 +2310,7 @@ CODE:
idx = SvIV(*PL_stack_sp);
if (UNLIKELY(idx < 0 && (idx += (AvFILLp(tmp)+1)) < 0))
- croak("Modification of non-creatable array value attempted, subscript %ld", idx);
+ croak("Modification of non-creatable array value attempted, subscript %" IVdf, idx);
if(UNLIKELY(NULL == (inner = av_fetch(tmp, idx, FALSE))))
{

6
perl-List-MoreUtils-XS.changes
View File

@ -1,3 +1,9 @@
-------------------------------------------------------------------
Tue Sep 12 08:16:32 UTC 2017 - schwab@suse.de
- format.patch: fix format errors
- undefined.patch: fix undefined operation
-------------------------------------------------------------------
Mon Sep 4 05:39:47 UTC 2017 - coolo@suse.com

4
perl-List-MoreUtils-XS.spec
View File

@ -27,6 +27,8 @@ Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/List-MoreUtils-XS/
Source0: https://cpan.metacpan.org/authors/id/R/RE/REHSACK/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
Patch0: format.patch
Patch1: undefined.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
@ -44,6 +46,8 @@ only a backend, the API is not public and can change without any warning.
%prep
%setup -q -n %{cpan_name}-%{version}
%patch0 -p1
%patch1 -p1
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"

14
undefined.patch Normal file
View File

@ -0,0 +1,14 @@
Index: List-MoreUtils-XS-0.423/XS.xs
===================================================================
--- List-MoreUtils-XS-0.423.orig/XS.xs
+++ List-MoreUtils-XS-0.423/XS.xs
@@ -2114,7 +2114,8 @@ CODE:
if(seen_undef == max)
{
- EXTEND(SP, ++count);
+ ++count;
+ EXTEND(SP, count);
ST(count-1) = &PL_sv_undef;
}