utf8.c: Reword a warning message
authorKarl Williamson <public@khwilliamson.com>
Wed, 16 Jan 2013 22:05:04 +0000 (15:05 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 16 Jan 2013 22:35:56 +0000 (15:35 -0700)
This follows the suggestion by Aristotle Pagaltzis.

pod/perldiag.pod
utf8.c

index ed6f773..0ba41a6 100644 (file)
@@ -2525,17 +2525,6 @@ with 'useperlio'.
 (F) Your machine doesn't implement the sockatmark() functionality,
 neither as a system call nor an ioctl call (SIOCATMARK).
 
-=item It is deprecated to pass malformed UTF-8 to character classification macros, for "%s"
-
-(D deprecated, utf8) This message indicates a bug either in the Perl
-core or in XS code.  Such code was trying to find out if a character,
-allegedly stored internally encoded as UTF-8, was of a given type, such
-as being punctuation or a digit.  But the character was not encoded in
-legal UTF-8.  The C<%s> is replaced by a string that can be used by
-knowledgeable people to determine what the type being checked against
-was.  If C<utf8> warnings are enabled, a further message is raised,
-giving details of the malformation.
-
 =item $* is no longer supported
 
 (D deprecated, syntax) The special variable C<$*>, deprecated in older
@@ -3807,12 +3796,22 @@ when you meant
 
 Remember that "my", "our", "local" and "state" bind tighter than comma.
 
-
 =item Parsing code internal error (%s)
 
 (F) Parsing code supplied by an extension violated the parser's API in
 a detectable way.
 
+=item Passing malformed UTF-8 to "%s" is deprecated
+
+(D deprecated, utf8) This message indicates a bug either in the Perl
+core or in XS code.  Such code was trying to find out if a character,
+allegedly stored internally encoded as UTF-8, was of a given type, such
+as being punctuation or a digit.  But the character was not encoded in
+legal UTF-8.  The C<%s> is replaced by a string that can be used by
+knowledgeable people to determine what the type being checked against
+was.  If C<utf8> warnings are enabled, a further message is raised,
+giving details of the malformation.
+
 =item Pattern subroutine nesting without pos change exceeded limit in regex; 
 marked by <-- HERE in m/%s/
 
diff --git a/utf8.c b/utf8.c
index dfb303f..1bf3f52 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2043,7 +2043,7 @@ S_is_utf8_common(pTHX_ const U8 *const p, SV **swash,
     if (! is_utf8_char_buf(p, p + UTF8SKIP(p))) {
         if (ckWARN_d(WARN_UTF8)) {
             Perl_warner(aTHX_ packWARN2(WARN_DEPRECATED,WARN_UTF8),
-                   "It is deprecated to pass malformed UTF-8 to character classification macros, for \"%s\"", swashname);
+                   "Passing malformed UTF-8 to \"%s\" is deprecated", swashname);
             if (ckWARN(WARN_UTF8)) {    /* This will output details as to the
                                            what the malformation is */
                 utf8_to_uvchr_buf(p, p + UTF8SKIP(p), NULL);