From ca80293756c082e86a9c68ec2e3ce683648a8e9b Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Tue, 2 Oct 2012 17:48:03 +0200
Subject: [PATCH] Bug 8674 follow-up Fix perlcritic error

---
 misc/batchdeletebiblios.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/misc/batchdeletebiblios.pl b/misc/batchdeletebiblios.pl
index 11fcaec350..9bc999a489 100755
--- a/misc/batchdeletebiblios.pl
+++ b/misc/batchdeletebiblios.pl
@@ -16,9 +16,10 @@ pod2usage(1) if $help or not @ARGV;
 
 for my $file ( @ARGV ) {
     say "Find biblionumber in file $file";
-    open(FD, $file) or say "Error: '$file' $!" and next;
+    my $fh;
+    open($fh, '<', $file) or say "Error: '$file' $!" and next;
 
-    while ( <FD> ) {
+    while ( <$fh> ) {
         my $biblionumber = $_;
         $biblionumber =~ s/$1/\n/g if $biblionumber =~ m/(\r\n?|\n\r?)/;
         chomp $biblionumber;
-- 
2.39.5