Bug 21758: Navigation in Z39.50 result pages not working in Acquisitions

[koha.git] / misc / batchdeletebiblios.pl

diff --git a/misc/batchdeletebiblios.pl b/misc/batchdeletebiblios.pl
index 11fcaec..9bc999a 100755 (executable)
--- 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;