diff options
| author | Aaron Crane <arc@cpan.org> | 2016-05-16 01:34:25 +0100 |
|---|---|---|
| committer | Aaron Crane <arc@cpan.org> | 2016-05-16 01:39:52 +0100 |
| commit | 9d293ddbfa9b2d5f12e8b7a40b44c1466fc9f148 (patch) | |
| tree | dc0c1ae81fa755bfaa74d5899a3487c61c90bb4f /cpan/Scalar-List-Utils | |
| parent | 7ede3c4fd2179a2fd73243b5b8374b6af730fb1f (diff) | |
| download | perl-9d293ddbfa9b2d5f12e8b7a40b44c1466fc9f148.tar.gz | |
Fix Scalar-List-Utils build on C89 compilers; patch sent upstream
Diffstat (limited to 'cpan/Scalar-List-Utils')
| -rw-r--r-- | cpan/Scalar-List-Utils/ListUtil.xs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/cpan/Scalar-List-Utils/ListUtil.xs b/cpan/Scalar-List-Utils/ListUtil.xs index badcce7d84..cd84770910 100644 --- a/cpan/Scalar-List-Utils/ListUtil.xs +++ b/cpan/Scalar-List-Utils/ListUtil.xs @@ -1037,6 +1037,9 @@ CODE: for(index = 0 ; index < items ; index++) { SV *arg = args[index]; +#ifdef HV_FETCH_EMPTY_HE + HE* he; +#endif if(SvGAMAGIC(arg)) /* clone the value so we don't invoke magic again */ @@ -1049,7 +1052,7 @@ CODE: else sv_setpvf(keysv, "%"NVgf, SvNV(arg)); #ifdef HV_FETCH_EMPTY_HE - HE* he = (HE*) hv_common(seen, NULL, SvPVX(keysv), SvCUR(keysv), 0, HV_FETCH_LVALUE | HV_FETCH_EMPTY_HE, NULL, 0); + he = (HE*) hv_common(seen, NULL, SvPVX(keysv), SvCUR(keysv), 0, HV_FETCH_LVALUE | HV_FETCH_EMPTY_HE, NULL, 0); if (HeVAL(he)) continue; @@ -1072,6 +1075,9 @@ CODE: for(index = 0 ; index < items ; index++) { SV *arg = args[index]; +#ifdef HV_FETCH_EMPTY_HE + HE *he; +#endif if(SvGAMAGIC(arg)) /* clone the value so we don't invoke magic again */ @@ -1090,7 +1096,7 @@ CODE: continue; } #ifdef HV_FETCH_EMPTY_HE - HE* he = (HE*) hv_common(seen, arg, NULL, 0, 0, HV_FETCH_LVALUE | HV_FETCH_EMPTY_HE, NULL, 0); + he = (HE*) hv_common(seen, arg, NULL, 0, 0, HV_FETCH_LVALUE | HV_FETCH_EMPTY_HE, NULL, 0); if (HeVAL(he)) continue; |