perldiag: ‘UTF-16 surrogate U+%X’ is a default warning

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 387bf96..88ba1a5 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -5554,7 +5554,7 @@ modified string is usually not particularly useful.)
 
 =item UTF-16 surrogate U+%X
 
-(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