From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 5 Dec 2000 20:30:35 +0000 (+0000)
Subject: Remove an unnecessary 'use utf8' (unnecessary because \x{...}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b5dab68882760bd07996befd442dd41c721a7f4;p=p5sagit%2Fp5-mst-13.2.git

Remove an unnecessary 'use utf8' (unnecessary because \x{...}
is now always UTF-8), empty line cosmetics.

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

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 827be5a..8efd571 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -104,6 +104,7 @@ sub nok_bytes {
     ok $1, '123alpha';
     $test++;				# 12
 }
+
 {
     use utf8;
 
@@ -204,10 +205,8 @@ sub nok_bytes {
 
 	ok $1, pack("C*", 0342);
 	$test++;				# 40
-
     }
 
-
     {
 	no utf8;
 	$_="\342\230\272>\342\230\272\342\230\272";
@@ -262,6 +261,7 @@ sub nok_bytes {
 	ok $tmp, pack("C*", 0342, 0230, 0272);
 	$test++;				# 54
     }
+
     {
 	use bytes;
 	no utf8;
@@ -295,7 +295,6 @@ sub nok_bytes {
 
 	ok $1, pack("C*", 0342);
 	$test++;				# 64
-
     }
 
     ok "\x{ab}" =~ /^\x{ab}$/, 1;
@@ -389,8 +388,6 @@ sub nok_bytes {
 {
     # bug id 20000323.056
 
-    use utf8;
-
     print "not " unless "\x{41}" eq +v65;
     print "ok $test\n";
     $test++;