From ade9cf977f7d471077ecd475f145b736b50e9b52 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sun, 1 Aug 2010 22:12:38 -0500
Subject: [PATCH] Close the tempfile in caller.t

Otherwise it will be locked when trying to run it on VMS.
---
 t/op/caller.t | 1 +
 1 file changed, 1 insertion(+)

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