Remove an unnecessary 'use utf8' (unnecessary because \x{...}
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 5 Dec 2000 20:30:35 +0000 (20:30 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 5 Dec 2000 20:30:35 +0000 (20:30 +0000)
is now always UTF-8), empty line cosmetics.

p4raw-id: //depot/perl@7998

t/pragma/utf8.t

index 827be5a..8efd571 100755 (executable)
@@ -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++;