Must close so that unlink works portably.

p4raw-id: //depot/perl@20807

diff --git a/t/io/utf8.t b/t/io/utf8.t
index 6b189ee..50cc012 100755 (executable)
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -306,6 +306,7 @@ ok( 1 );
     open F, ">a";
     binmode F, ":utf8";
     syswrite(F, $a = chr(0x100));
+    close A;
     is( ord($a), 0x100, '23428 syswrite should not downgrade scalar' );
     like( $a, qr/^\w+/, '23428 syswrite should not downgrade scalar' );
 }