perldiag: ‘Unicode surrogate is illegal’ is a default warning

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index b4cfd12..d18279f 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -4956,7 +4956,7 @@ you can turn off this warning by C<no warnings 'nonchar';>.
 
 =item Unicode surrogate U+%X is illegal in UTF-8
 
-(W utf8, surrogate) You had a UTF-16 surrogate in a context where they are
+(S utf8, surrogate) You had a UTF-16 surrogate in a context where they are
 not considered acceptable.  These code points, between U+D800 and
 U+DFFF (inclusive), are used by Unicode only for UTF-16.  However, Perl
 internally allows all unsigned integer code points (up to the size limit