perldiag: ‘Code point is not Unicode’ is a default warning

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 0e22bb7..b4cfd12 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1426,7 +1426,7 @@ another template code following the slash.  See L<perlfunc/pack>.
 
 =item Code point 0x%X is not Unicode, all \p{} matches fail; all \P{} matches succeed
 
-(W utf8, non_unicode) You had a code point above the Unicode maximum
+(S utf8, non_unicode) You had a code point above the Unicode maximum
 of U+10FFFF.
 
 Perl allows strings to contain a superset of Unicode code points, up