projects
/
koha-equinox.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
7251a93
)
Bug 8674 follow-up Fix perlcritic error
author
Paul Poulain
<paul.poulain@biblibre.com>
Tue, 2 Oct 2012 15:48:03 +0000 (17:48 +0200)
committer
Paul Poulain
<paul.poulain@biblibre.com>
Tue, 2 Oct 2012 15:48:03 +0000 (17:48 +0200)
misc/batchdeletebiblios.pl
patch
|
blob
|
history
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;