Bugzilla – Attachment 4096 Details for
Bug 6315
depreciation warnings in C4::Serials in new perls
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Signed off Patch
0001-Bug-6315-Fix-depreciated-constructions-in-C4-Serials.patch (text/plain), 1.79 KB, created by
Chris Cormack
on 2011-05-13 07:41:32 UTC
(
hide
)
Description:
Signed off Patch
Filename:
MIME Type:
Creator:
Chris Cormack
Created:
2011-05-13 07:41:32 UTC
Size:
1.79 KB
patch
obsolete
>From f357107f8f32d319a2825db65b9a946a588361c4 Mon Sep 17 00:00:00 2001 >From: Colin Campbell <colin.campbell@ptfs-europe.com> >Date: Fri, 6 May 2011 12:50:39 +0100 >Subject: [PATCH] Bug 6315: Fix depreciated constructions in C4::Serials > >Perl 5.14 will issue warnings in cases where it is assumed that >() will magically appear around qw() as the interpreter >will stop fooling itself that they are there >Added the missing () in the couple of cases they were required > >Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz> >--- > C4/Serials.pm | 4 ++-- > 1 files changed, 2 insertions(+), 2 deletions(-) > >diff --git a/C4/Serials.pm b/C4/Serials.pm >index 20ae7a3..8aa6ebc 100644 >--- a/C4/Serials.pm >+++ b/C4/Serials.pm >@@ -581,7 +581,7 @@ sub GetSubscriptions { > my @sqlstrings; > my @strings_to_search; > @strings_to_search = map { "%$_%" } split( / /, $string ); >- foreach my $index qw(biblio.title subscription.callnumber subscription.location subscription.notes subscription.internalnotes) { >+ foreach my $index (qw(biblio.title subscription.callnumber subscription.location subscription.notes subscription.internalnotes)) { > push @bind_params, @strings_to_search; > my $tmpstring = "AND $index LIKE ? " x scalar(@strings_to_search); > $debug && warn "$tmpstring"; >@@ -594,7 +594,7 @@ sub GetSubscriptions { > my @sqlstrings; > my @strings_to_search; > @strings_to_search = map { "%$_%" } split( / /, $issn ); >- foreach my $index qw(biblioitems.issn subscription.callnumber) { >+ foreach my $index ( qw(biblioitems.issn subscription.callnumber)) { > push @bind_params, @strings_to_search; > my $tmpstring = "OR $index LIKE ? " x scalar(@strings_to_search); > $debug && warn "$tmpstring"; >-- >1.7.2.2 >
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 6315
:
4050
| 4096