forked from pool/perl-List-MoreUtils-XS
bf8e7ea6bf
- 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
15 lines
364 B
Diff
15 lines
364 B
Diff
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;
|
|
}
|
|
|