UTF8fARG,UTF8f are documented in perlguts

diff --git a/perl.h b/perl.h
index 615ab30..dc585b3 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3626,11 +3626,8 @@ EXTERN_C int perl_tsa_mutex_unlock(perl_mutex* mutex)
 
 #define HEKfARG(p) ((void*)(p))
 
-/*
-=for apidoc Amnh||UTF8f
-=for apidoc Amh||UTF8fARG|bool is_utf8|Size_t byte_len|char *str
-
-=cut
+/* Documented in perlguts
+ *
  * %4p is a custom format
  */
 #ifndef UTF8f

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index da5b24e..ccb1b5d 100644 (file)
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -2879,6 +2879,9 @@ One way to do this for typical filehandles is to invoke perl with the
 C<-C>> parameter.  (See L<perlrun/-C [numberE<sol>list]>.
 
 =for apidoc_section Formats
+=for apidoc Amnh||UTF8f
+=for apidoc Amh||UTF8fARG|bool is_utf8|Size_t byte_len|char *str
+
 =cut
 
 =head2 Formatted Printing of C<Size_t> and C<SSize_t>