perl/perl-5.18.2-overflow.diff

--- ./sv.c.orig	2022-05-21 21:26:59.000000000 +0000
+++ ./sv.c	2022-06-23 11:53:50.561877702 +0000
@@ -2002,7 +2002,7 @@ S_sv_2iuv_common(pTHX_ SV *const sv)
 #ifndef NV_PRESERVES_UV
                 && SvIVX(sv) != IV_MIN /* avoid negating IV_MIN below */
                 && (((UV)1 << NV_PRESERVES_UV_BITS) >
-                    (UV)(SvIVX(sv) > 0 ? SvIVX(sv) : -SvIVX(sv)))
+                    (UV)(SvIVX(sv) > 0 ? (UV)SvIVX(sv) : -(UV)SvIVX(sv)))
                 /* Don't flag it as "accurately an integer" if the number
                    came from a (by definition imprecise) NV operation, and
                    we're outside the range of NV integer precision */
- Update to 5.36.0 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=219 2022-06-23 14:25:16 +02:00			`--- ./sv.c.orig 2022-05-21 21:26:59.000000000 +0000`
			`+++ ./sv.c 2022-06-23 11:53:50.561877702 +0000`
			`@@ -2002,7 +2002,7 @@ S_sv_2iuv_common(pTHX_ SV *const sv)`
Accepting request 227434 from home:rguenther:branches:devel:languages:perl - perl-5.18.2-overflow.diff: avoid undefined overflow in S_sv_2iuv_common OBS-URL: https://build.opensuse.org/request/show/227434 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=108 2014-03-25 13:21:43 +01:00			`#ifndef NV_PRESERVES_UV`
Accepting request 313011 from home:hsk17:branches:devel:languages:perl update to 5.22.0 regarding the .spec file: i have updated the "(Provides\|Obsoletes): perl-*" directives to reflect the module versions provided by perl-5.22.0. but only for the modules that already were mentioned in the .spec file. i cannot judge why these are in the .spec file while many others are not. OBS-URL: https://build.opensuse.org/request/show/313011 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=130 2015-06-23 21:23:16 +02:00			`&& SvIVX(sv) != IV_MIN /* avoid negating IV_MIN below */`
- Update to 5.36.0 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=219 2022-06-23 14:25:16 +02:00			`&& (((UV)1 << NV_PRESERVES_UV_BITS) >`
			`- (UV)(SvIVX(sv) > 0 ? SvIVX(sv) : -SvIVX(sv)))`
			`+ (UV)(SvIVX(sv) > 0 ? (UV)SvIVX(sv) : -(UV)SvIVX(sv)))`
			`/* Don't flag it as "accurately an integer" if the number`
			`came from a (by definition imprecise) NV operation, and`
			`we're outside the range of NV integer precision */`