500a208fa3
The content of this branch was automatically imported from Fedora ELN with the following as its source: https://src.fedoraproject.org/rpms/perl#f36ef6bc94783b6bfd8b4017d7c2a7b66ef15460
33 lines
858 B
Diff
33 lines
858 B
Diff
From 5777cf812c2812ea45eeb45e48979bab544d71af Mon Sep 17 00:00:00 2001
|
|
From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com>
|
|
Date: Thu, 8 Oct 2020 19:02:10 +0900
|
|
Subject: [PATCH] sv.c: Added missing braces in Perl_sv_inc_nomg().
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=UTF-8
|
|
Content-Transfer-Encoding: 8bit
|
|
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
---
|
|
sv.c | 3 ++-
|
|
1 file changed, 2 insertions(+), 1 deletion(-)
|
|
|
|
diff --git a/sv.c b/sv.c
|
|
index 82248e3b1f..57fd65a5b8 100644
|
|
--- a/sv.c
|
|
+++ b/sv.c
|
|
@@ -8944,9 +8944,10 @@ Perl_sv_inc_nomg(pTHX_ SV *const sv)
|
|
if (SvIsUV(sv)) {
|
|
if (SvUVX(sv) == UV_MAX)
|
|
sv_setnv(sv, UV_MAX_P1);
|
|
- else
|
|
+ else {
|
|
(void)SvIOK_only_UV(sv);
|
|
SvUV_set(sv, SvUVX(sv) + 1);
|
|
+ }
|
|
} else {
|
|
if (SvIVX(sv) == IV_MAX)
|
|
sv_setuv(sv, (UV)IV_MAX + 1);
|
|
--
|
|
2.25.4
|
|
|