From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 5 Jun 2003 17:26:04 +0000 (+0000)
Subject: SKIP label was missing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=75ccb5d377ec0ee8e7df44481cfb19db42df4931;p=p5sagit%2Fp5-mst-13.2.git

SKIP label was missing.

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

diff --git a/t/io/utf8.t b/t/io/utf8.t
index c7ad296..f77aa3f 100755
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -160,13 +160,15 @@ ok( $x eq $chr );
 
 # Now we have a deformed file.
 
-if (ord('A') == 193) {
-    skip( "EBCDIC doesn't complain" );
-} else {
-    open F, "<:utf8", "a" or die $!;
-    $x = <F>; chomp $x;
-    local $SIG{__WARN__} = sub { ok( 1 ) };
-    eval { sprintf "%vd\n", $x };
+SKIP: {
+    if (ord('A') == 193) {
+	skip( "EBCDIC doesn't complain" );
+    } else {
+	open F, "<:utf8", "a" or die $!;
+	$x = <F>; chomp $x;
+	local $SIG{__WARN__} = sub { ok( 1 ) };
+	eval { sprintf "%vd\n", $x };
+    }
 }
 
 close F;