From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 10 Sep 2003 07:16:52 +0000 (+0000)
Subject: No utf8 warnings without use warnings.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=532ffc5d12f1c363c9c70bfcf166e7ed040fdbd4;p=p5sagit%2Fp5-mst-13.2.git

No utf8 warnings without use warnings.

p4raw-id: //depot/perl@21154
---

diff --git a/t/io/utf8.t b/t/io/utf8.t
index aade3bd..6806736 100755
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -314,8 +314,9 @@ ok( 1 );
 # sysread() and syswrite() tested in lib/open.t since Fcntl is used
 
 {
-    # <FH> on a :utf8 stream should complain immediately
+    # <FH> on a :utf8 stream should complain immediately with -w
     # if it finds bad UTF-8 (:encoding(utf8) works this way)
+    use warnings 'utf8';
     local $SIG{__WARN__} = sub { $@ = shift };
     open F, ">a";
     binmode F;