fix $^N-related coredump

[p5sagit/p5-mst-13.2.git] / t / io / utf8.t

diff --git a/t/io/utf8.t b/t/io/utf8.t
index c7ad296..f77aa3f 100755 (executable)
--- 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;