UTF8f

This new format string allows char*s to be interpolated with the
utf8ness and length specified as well:

Perl_croak(aTHX_ "Couldn't twiggle the twoggle in \"%"UTF8f"\"",
                  is_utf8, len, s);

This commit changes one function call in gv.c to use UTF8f (it should
go faster now) as an example of its use.

This was brought up in ticket #113824.  This commit does not fix
#113824, but provides groundwork that makes it easier to fix.

1 files changed, 5 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index 613fd3ca72..df244868b8 100644
--- a/perl.h
+++ b/perl.h
@@ -3038,6 +3038,11 @@ typedef pthread_key_t	perl_key;
 
 #define HEKfARG(p) ((void*)(p))
 
+/* Takes three arguments: is_utf8, length, str */
+#ifndef UTF8f
+#  define UTF8f "u%"UVuf"%4p"
+#endif
+
 #ifdef PERL_CORE
 /* not used; but needed for backward compatibility with XS code? - RMB */
 #  undef VDf