diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-01 16:47:46 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-01 14:45:26 +0000 |
| commit | 2b1ff55aaecd3cdbb8a785e9cee9007fdd4fc04c (patch) | |
| tree | c7df4e4045eb1c5eeb344d8bfff5e908290c76bc /t | |
| parent | 3db621fff0190e634928562c9f2fd308ab651d3c (diff) | |
| download | perl-2b1ff55aaecd3cdbb8a785e9cee9007fdd4fc04c.tar.gz | |
temp file not cleaned up
Message-ID: <20020201154746.A24079@rafael>
p4raw-id: //depot/perl@14514
Diffstat (limited to 't')
| -rwxr-xr-x | t/io/utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/utf8.t b/t/io/utf8.t index d0fe0f1462..337bd52144 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); |