The #11673 necessitated a test tweak.

p4raw-id: //depot/perl@11682

diff --git a/t/io/utf8.t b/t/io/utf8.t
index 0d5700d..1a7d27f 100755 (executable)
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -138,7 +138,11 @@ print "ok 21\n";
 # Now let's make it suffer.
 open F, ">", "a" or die $!;
 my $w;
-eval {local $SIG{__WARN__} = sub { $w = $_[0] };  print F $a; };
+{
+    use warnings 'utf8';
+    local $SIG{__WARN__} = sub { $w = $_[0] };
+    print F $a;
+}
 print "not " if ($@ || $w !~ /Wide character in print/i);
 print "ok 22\n";
 }