This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
diagnostics.t: Tweak to get tests passing
authorFather Chrysostomos <sprout@cpan.org>
Wed, 27 Jun 2012 13:01:29 +0000 (06:01 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 27 Jun 2012 13:01:29 +0000 (06:01 -0700)
I thought I had run it, hmm.

lib/diagnostics.t

index 60e01e1..a789d17 100644 (file)
@@ -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