This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv.h: Wanted UOK, but said IOK
authorKarl Williamson <khw@cpan.org>
Sun, 28 Jun 2020 18:03:54 +0000 (12:03 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 18 Jul 2020 03:44:08 +0000 (21:44 -0600)
I don't know the consequences of this bug

sv.h

diff --git a/sv.h b/sv.h
index 2f6431a..3721b2f 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1711,7 +1711,7 @@ Like C<sv_catsv> but doesn't process magic.
 #define SvNV(sv) (SvNOK_nog(sv) ? SvNVX(sv) : sv_2nv(sv))
 
 #define SvIV_nomg(sv) (SvIOK(sv) ? SvIVX(sv) : sv_2iv_flags(sv, 0))
-#define SvUV_nomg(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0))
+#define SvUV_nomg(sv) (SvUOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0))
 #define SvNV_nomg(sv) (SvNOK(sv) ? SvNVX(sv) : sv_2nv_flags(sv, 0))
 
 /* ----*/