From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 1 Feb 2002 15:47:46 +0000 (+0100)
Subject: temp file not cleaned up
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b1ff55aaecd3cdbb8a785e9cee9007fdd4fc04c;p=p5sagit%2Fp5-mst-13.2.git

temp file not cleaned up
Message-ID: <20020201154746.A24079@rafael>

p4raw-id: //depot/perl@14514
---

diff --git a/t/io/utf8.t b/t/io/utf8.t
index d0fe0f1..337bd52 100755
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -229,7 +229,7 @@ print "ok 26\n";
     print $@ =~ /Wide character in print/ ? "ok 27\n" : "not ok 27\n";
 
     undef $@;
-    open F, ">:utf8", ">a";
+    open F, ">:utf8", "a";
     print F chr(0x100);
     close(F);