This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Close the filehandle actually being tested in uni/readline.t
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 22 May 2012 07:37:01 +0000 (08:37 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 22 May 2012 07:37:01 +0000 (08:37 +0100)
(Also allows the tempfile() to be unlink()ed :-)

t/uni/readline.t

index ef2106d..495172c 100644 (file)
@@ -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');
 }