1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/caller.t b/t/op/caller.t
index 40782bee70..c6d4f61250 100644
--- a/t/op/caller.t
+++ b/t/op/caller.t
@@ -195,6 +195,7 @@ print scalar @DB::args;
 
 # It shouldn't leak.
 EOP
+    close $fh;
 
     foreach (0, 1) {
         my $got = runperl(progfile => $tmpfile, args => [$_]);