This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Close the tempfile in caller.t
[perl5.git] / 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 => [$_]);