This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Make unused parameter signal its status
authorKarl Williamson <khw@cpan.org>
Wed, 25 Jul 2018 01:35:55 +0000 (19:35 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 3 Aug 2018 18:55:01 +0000 (12:55 -0600)
Change the string in this string parameter to indicate it is unused,
like the similar calls nearby.

utf8.c

diff --git a/utf8.c b/utf8.c
index 37cf914..8471fb8 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -3373,7 +3373,9 @@ Perl__is_utf8_mark(pTHX_ const U8 *p)
 {
     PERL_ARGS_ASSERT__IS_UTF8_MARK;
 
-    return is_utf8_common(p, NULL, "IsM", PL_utf8_mark);
+    return is_utf8_common(p, NULL,
+                          "This is buggy if this gets used",
+                          PL_utf8_mark);
 }
 
 STATIC UV