This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Improve debug message
authorKarl Williamson <khw@cpan.org>
Mon, 23 Jun 2014 03:29:28 +0000 (21:29 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 21 Oct 2014 15:26:49 +0000 (09:26 -0600)
This function was called with an empty string "" because that string was
not actually needed in the function, except to better identify the
source when there is an error.  So change to specify the actual source.

utf8.c

diff --git a/utf8.c b/utf8.c
index a7baed4..df71252 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1688,7 +1688,7 @@ Perl__is_utf8_perl_idstart(pTHX_ const U8 *p)
     if (! PL_utf8_perl_idstart) {
         invlist = _new_invlist_C_array(_Perl_IDStart_invlist);
     }
     if (! PL_utf8_perl_idstart) {
         invlist = _new_invlist_C_array(_Perl_IDStart_invlist);
     }
-    return is_utf8_common(p, &PL_utf8_perl_idstart, "", invlist);
+    return is_utf8_common(p, &PL_utf8_perl_idstart, "_Perl_IDStart", invlist);
 }
 
 bool
 }
 
 bool
@@ -1711,7 +1711,7 @@ Perl__is_utf8_perl_idcont(pTHX_ const U8 *p)
     if (! PL_utf8_perl_idcont) {
         invlist = _new_invlist_C_array(_Perl_IDCont_invlist);
     }
     if (! PL_utf8_perl_idcont) {
         invlist = _new_invlist_C_array(_Perl_IDCont_invlist);
     }
-    return is_utf8_common(p, &PL_utf8_perl_idcont, "", invlist);
+    return is_utf8_common(p, &PL_utf8_perl_idcont, "_Perl_IDCont", invlist);
 }
 
 bool
 }
 
 bool