This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Silence 'no docs' message
authorKarl Williamson <public@khwilliamson.com>
Tue, 11 Jan 2011 03:56:50 +0000 (20:56 -0700)
committerKarl Williamson <public@khwilliamson.com>
Tue, 11 Jan 2011 03:59:36 +0000 (20:59 -0700)
I mistakenly added the 'd' flag to the entry for check_utf8_print().

embed.fnc

index 3a4774c..1b97c0b 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1314,7 +1314,7 @@ ApMd      |U8*    |bytes_from_utf8|NN const U8 *s|NN STRLEN *len|NULLOK bool *is_utf8
 ApMd   |U8*    |bytes_to_utf8  |NN const U8 *s|NN STRLEN *len
 Apd    |UV     |utf8_to_uvchr  |NN const U8 *s|NULLOK STRLEN *retlen
 Apd    |UV     |utf8_to_uvuni  |NN const U8 *s|NULLOK STRLEN *retlen
 ApMd   |U8*    |bytes_to_utf8  |NN const U8 *s|NN STRLEN *len
 Apd    |UV     |utf8_to_uvchr  |NN const U8 *s|NULLOK STRLEN *retlen
 Apd    |UV     |utf8_to_uvuni  |NN const U8 *s|NULLOK STRLEN *retlen
-pMd    |bool   |check_utf8_print       |NN const U8 *s|const STRLEN len
+pM     |bool   |check_utf8_print       |NN const U8 *s|const STRLEN len
 
 #ifdef EBCDIC
 Adp    |UV     |utf8n_to_uvchr |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags
 
 #ifdef EBCDIC
 Adp    |UV     |utf8n_to_uvchr |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags