From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 21 Aug 2003 18:22:22 +0000 (+0000)
Subject: Must close so that unlink works portably.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0dc527bc38dcae4bdb844e1e1468d9dd7b53810b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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' );
 }