Bugzilla – Attachment 12647 Details for
Bug 8674
Need a delete biblios script
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 8674 follow-up Fix perlcritic error
Bug-8674-follow-up-Fix-perlcritic-error.patch (text/plain), 929 bytes, created by
Paul Poulain
on 2012-10-02 15:49:08 UTC
(
hide
)
Description:
Bug 8674 follow-up Fix perlcritic error
Filename:
MIME Type:
Creator:
Paul Poulain
Created:
2012-10-02 15:49:08 UTC
Size:
929 bytes
patch
obsolete
>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 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 ( <FD> ) { >+ while ( <$fh> ) { > my $biblionumber = $_; > $biblionumber =~ s/$1/\n/g if $biblionumber =~ m/(\r\n?|\n\r?)/; > chomp $biblionumber; >-- >1.7.9.5
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 8674
:
11779
|
11780
|
11887
|
11919
|
11920
| 12647