From 309d4ee9a034d4811cda74ae2976855f162ab374 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Fri, 10 Oct 2014 20:33:57 +0200
Subject: [PATCH] Bug 13068 QA follow-up

using the proper file handle to pass koha-qa.pl !
---
 installer/data/mysql/updatedatabase.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index 070b564..9f3acba 100755
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -8791,8 +8791,8 @@ $/ = ';';
 while (readdir $dirh) {
     next unless $_ =~ /\.sql$/; # skip non SQL files
     # open and read file;
-    open FILE, "<",  C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_";
-    while ( <FILE> ) {
+    open my $file, "<",  C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_";
+    while ( <$file> ) {
         my $line = $_;
         $line =~ s/\n//g;
         $dbh->do($line) if $line;
-- 
1.9.1