perl-List-MoreUtils-XS/format.patch
2017-09-12 09:28:26 +00:00

14 lines
581 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
@@ -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))))
{