Close the tempfile in caller.t

Otherwise it will be locked when trying to run it on VMS.

diff --git a/t/op/caller.t b/t/op/caller.t
index 40782be..c6d4f61 100644 (file)
--- 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 => [$_]);