Blame SOURCES/perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch
|
 |
8446b7 |
From 530e9296a21b673d7e4c2b42f18d0d52d00f35c4 Mon Sep 17 00:00:00 2001
|
|
|
8446b7 |
From: Karl Williamson <khw@cpan.org>
|
|
|
8446b7 |
Date: Sun, 28 Jun 2020 12:03:54 -0600
|
|
|
8446b7 |
Subject: [PATCH] sv.h: Wanted UOK, but said IOK
|
|
|
8446b7 |
MIME-Version: 1.0
|
|
|
8446b7 |
Content-Type: text/plain; charset=UTF-8
|
|
|
8446b7 |
Content-Transfer-Encoding: 8bit
|
|
|
8446b7 |
|
|
|
8446b7 |
I don't know the consequences of this bug
|
|
|
8446b7 |
|
|
|
8446b7 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
8446b7 |
---
|
|
|
8446b7 |
sv.h | 2 +-
|
|
|
8446b7 |
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
8446b7 |
|
|
|
8446b7 |
diff --git a/sv.h b/sv.h
|
|
|
8446b7 |
index 2f6431a826..3721b2fb1b 100644
|
|
|
8446b7 |
--- a/sv.h
|
|
|
8446b7 |
+++ b/sv.h
|
|
|
8446b7 |
@@ -1711,7 +1711,7 @@ Like C<sv_catsv> but doesn't process magic.
|
|
|
8446b7 |
#define SvNV(sv) (SvNOK_nog(sv) ? SvNVX(sv) : sv_2nv(sv))
|
|
|
8446b7 |
|
|
|
8446b7 |
#define SvIV_nomg(sv) (SvIOK(sv) ? SvIVX(sv) : sv_2iv_flags(sv, 0))
|
|
|
8446b7 |
-#define SvUV_nomg(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0))
|
|
|
8446b7 |
+#define SvUV_nomg(sv) (SvUOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0))
|
|
|
8446b7 |
#define SvNV_nomg(sv) (SvNOK(sv) ? SvNVX(sv) : sv_2nv_flags(sv, 0))
|
|
|
8446b7 |
|
|
|
8446b7 |
/* ----*/
|
|
|
8446b7 |
--
|
|
|
8446b7 |
2.25.4
|
|
|
8446b7 |
|