This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
temp file not cleaned up
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 1 Feb 2002 15:47:46 +0000 (16:47 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 1 Feb 2002 14:45:26 +0000 (14:45 +0000)
Message-ID: <20020201154746.A24079@rafael>

p4raw-id: //depot/perl@14514

t/io/utf8.t

index d0fe0f1..337bd52 100755 (executable)
@@ -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);