From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 15 Aug 2001 13:26:00 +0000 (+0000)
Subject: The #11673 necessitated a test tweak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54d2e5f13b773fb3b3721d846d811605251d51e0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
 }