From 54d2e5f13b773fb3b3721d846d811605251d51e0 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 15 Aug 2001 13:26:00 +0000
Subject: [PATCH] The #11673 necessitated a test tweak.

p4raw-id: //depot/perl@11682
---
 t/io/utf8.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/io/utf8.t b/t/io/utf8.t
index 0d5700d..1a7d27f 100755
--- 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";
 }
-- 
2.7.4