From 900bc0f3e64d5a9a5e7b331e9237d5d23f75a4e0 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Mon, 18 Dec 2017 09:09:58 +0100
Subject: [PATCH] Bug 19821: Close filehandle after writing

Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Bouzid Fergani <bouzid.fergani@inlibro.com>
Signed-off-by: Victor Grousset/tuxayo <victor@tuxayo.net>
---
 t/lib/Bootstrap.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/lib/Bootstrap.pm b/t/lib/Bootstrap.pm
index f679d392ff..7fac260b99 100644
--- a/t/lib/Bootstrap.pm
+++ b/t/lib/Bootstrap.pm
@@ -28,6 +28,7 @@ sub import {
 
     my ($fh, $filename) = tempfile('koha-conf.XXXXXX', TMPDIR => 1, UNLINK => 1);
     $xml->toFH($fh);
+    close $fh;
 
     $ENV{KOHA_CONF} = $filename;
 
@@ -45,7 +46,7 @@ sub import {
     my $user = C4::Context->config('user');
     my $pass = C4::Context->config('pass');
 
-    say "Create test database...";
+    say "Create test database $database...";
 
     my $dbh = DBI->connect("dbi:mysql:;host=$host;port=$port", $user, $pass, {
         RaiseError => 1,
-- 
2.26.2