This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Close the tempfile in caller.t
authorCraig A. Berry <craigberry@mac.com>
Mon, 2 Aug 2010 03:12:38 +0000 (22:12 -0500)
committerCraig A. Berry <craigberry@mac.com>
Mon, 2 Aug 2010 12:10:53 +0000 (07:10 -0500)
Otherwise it will be locked when trying to run it on VMS.

t/op/caller.t

index 40782be..c6d4f61 100644 (file)
@@ -195,6 +195,7 @@ print scalar @DB::args;
 
 # It shouldn't leak.
 EOP
+    close $fh;
 
     foreach (0, 1) {
         my $got = runperl(progfile => $tmpfile, args => [$_]);