X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Futf8.t;h=f77aa3fdc9b0d5fa61cde3c1ab0b27c7bc4f63c0;hb=2d862febb32638bf1f7663134644cf7e37f284ad;hp=c7ad296d8dd753d7c17a090fd1536eb4f95633be;hpb=38295cca2bcea18247fdba079ba504a69c9fda94;p=p5sagit%2Fp5-mst-13.2.git

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;