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 (executable)
--- 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);