diff --git a/inline.h b/inline.h index 44128c624d07..b438da5be8ba 100644 --- a/inline.h +++ b/inline.h @@ -3295,9 +3295,12 @@ Perl_uv_to_utf8_msgs(pTHX_ U8 *d, UV uv, UV flags , HV **msgs) /* =for apidoc_section $utility -=for apidoc is_safe_syscall +=for apidoc is_safe_syscall +=for apidoc_item ||IS_SAFE_SYSCALL| -Test that the given C (with length C) doesn't contain any internal +These are synonymous. + +They test that the given C (with length C) doesn't contain any internal C characters. If it does, set C to C, optionally warn using the C category, and return FALSE. @@ -3306,8 +3309,6 @@ Return TRUE if the name is safe. C and C are used in any warning. -Used by the C macro. - =cut */ diff --git a/perl.h b/perl.h index 5aaeea0cc223..e644b978e6cc 100644 --- a/perl.h +++ b/perl.h @@ -8409,17 +8409,7 @@ so no C. #endif -/* -=for apidoc_section $utility - -=for apidoc Am|bool|IS_SAFE_SYSCALL|NN const char *pv|STRLEN len|NN const char *what|NN const char *op_name - -Same as L. - -=cut - -Allows one ending \0 -*/ +/* Allows one ending \0 */ #define IS_SAFE_SYSCALL(p, len, what, op_name) (Perl_is_safe_syscall(aTHX_ (p), (len), (what), (op_name))) #define IS_SAFE_PATHNAME(p, len, op_name) IS_SAFE_SYSCALL((p), (len), "pathname", (op_name))