SKIP label was missing.

p4raw-id: //depot/perl@19693

1 files changed, 9 insertions, 7 deletions

diff --git a/t/io/utf8.t b/t/io/utf8.t
index c7ad296d8d..f77aa3fdc9 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;