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ř --- 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