In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9816f1212fba0148b8edf3072e3d0b121e313665?hp=8f65b4cd1a923de18d21a3f1145e30941ae00e4e>
- Log ----------------------------------------------------------------- commit 9816f1212fba0148b8edf3072e3d0b121e313665 Author: Karl Williamson <[email protected]> Date: Wed Jan 16 15:05:04 2013 -0700 utf8.c: Reword a warning message This follows the suggestion by Aristotle Pagaltzis. M pod/perldiag.pod M utf8.c commit 78181aa97421459079a91bb4f9e8939c1d56b6f4 Author: Karl Williamson <[email protected]> Date: Wed Jan 16 15:03:51 2013 -0700 perldiag: Move an out-of-alphabetical_order entry M pod/perldiag.pod ----------------------------------------------------------------------- Summary of changes: pod/perldiag.pod | 46 +++++++++++++++++++++++----------------------- utf8.c | 2 +- 2 files changed, 24 insertions(+), 24 deletions(-) diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 2be0f79..0ba41a6 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -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 @@ -3795,11 +3784,34 @@ to even) byte length. (P) The lexer got into a bad state while processing a case modifier. +=item Parentheses missing around "%s" list + +(W parenthesis) You said something like + + my $foo, $bar = @_; + +when you meant + + my ($foo, $bar) = @_; + +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/ @@ -3810,18 +3822,6 @@ the nesting limit is exceeded. The <-- HERE shows whereabouts in the regular expression the problem was discovered. -=item Parentheses missing around "%s" list - -(W parenthesis) You said something like - - my $foo, $bar = @_; - -when you meant - - my ($foo, $bar) = @_; - -Remember that "my", "our", "local" and "state" bind tighter than comma. - =item C<-p> destination: %s (F) An error occurred during the implicit output invoked by the C<-p> diff --git a/utf8.c b/utf8.c index dfb303f..1bf3f52 100644 --- 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); -- Perl5 Master Repository
