diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2012-05-22 08:37:01 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2012-05-22 08:37:01 +0100 |
| commit | 12578451ab3883e1692ecd2814459f3e9f083028 (patch) | |
| tree | cb435d2257ba7ea7c41cbafc1bcae978a67f1802 /t/uni | |
| parent | 52c4b146f296c26f4747a557a123215167a38693 (diff) | |
| download | perl-12578451ab3883e1692ecd2814459f3e9f083028.tar.gz | |
Close the filehandle actually being tested in uni/readline.t
(Also allows the tempfile() to be unlink()ed :-)
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/readline.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/uni/readline.t b/t/uni/readline.t index ef2106dfd2..495172ca98 100644 --- a/t/uni/readline.t +++ b/t/uni/readline.t @@ -21,7 +21,7 @@ like($@, 'Modification of a read-only value attempted', '[perl #19566]'); my $file = tempfile(); open Ạ,'+>',$file; $a = 3; is($a .= <Ạ>, 3, '#21628 - $a .= <A> , A eof'); - close A; $a = 4; + close Ạ; $a = 4; is($a .= <Ạ>, 4, '#21628 - $a .= <A> , A closed'); } |