In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/12578451ab3883e1692ecd2814459f3e9f083028?hp=52c4b146f296c26f4747a557a123215167a38693>
- Log -----------------------------------------------------------------
commit 12578451ab3883e1692ecd2814459f3e9f083028
Author: Steve Hay <steve.m....@googlemail.com>
Date: Tue May 22 08:37:01 2012 +0100
Close the filehandle actually being tested in uni/readline.t
(Also allows the tempfile() to be unlink()ed :-)
-----------------------------------------------------------------------
Summary of changes:
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 ef2106d..495172c 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');
}
--
Perl5 Master Repository
