From ca80293756c082e86a9c68ec2e3ce683648a8e9b Mon Sep 17 00:00:00 2001 From: Paul Poulain 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 11fcaec..9bc999a 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 ( ) { + while ( <$fh> ) { my $biblionumber = $_; $biblionumber =~ s/$1/\n/g if $biblionumber =~ m/(\r\n?|\n\r?)/; chomp $biblionumber; -- 1.7.9.5