Close the filehandle actually being tested in uni/readline.t

(Also allows the tempfile() to be unlink()ed :-)

diff --git a/t/uni/readline.t b/t/uni/readline.t
index ef2106d..495172c 100644 (file)
--- 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');
 }