This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Use already-computed variable
authorKarl Williamson <khw@cpan.org>
Sat, 11 Jan 2020 04:46:33 +0000 (21:46 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 19 Jan 2020 05:07:04 +0000 (22:07 -0700)
instead of doing it a second time

utf8.c

diff --git a/utf8.c b/utf8.c
index a1f6632..1634ea4 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -352,7 +352,7 @@ Perl_uvoffuni_to_utf8_flags_msgs(pTHX_ U8 *d, UV uv, const UV flags, HV** msgs)
                                    category, flag);
             }
             else {
-                Perl_ck_warner_d(aTHX_ packWARN(WARN_NON_UNICODE), format, uv);
+                Perl_ck_warner_d(aTHX_ category, format, uv);
             }
         }
         if (       (flags & UNICODE_DISALLOW_SUPER)