diagnostics.t: Tweak to get tests passing

I thought I had run it, hmm.

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index 60e01e1..a789d17 100644 (file)
--- a/lib/diagnostics.t
+++ b/lib/diagnostics.t
@@ -48,7 +48,7 @@ like $warning, qr/using lex_stuff_pvn or similar/, 'L<foo|bar/baz>';
 seek STDERR, 0,0;
 $warning = '';
 warn 'Code point 0xBEE5 is not Unicode, may not be portable';
-like $warning, qr/W utf8/,
+like $warning, qr/S utf8/,
    'Message sharing its description with the following message';
 
 # Periods at end of entries in perldiag.pod get matched correctly