From fa5e6daec72bf58641d4128ffad043205b210c98 Mon Sep 17 00:00:00 2001 From: Colin Campbell 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 Signed-off-by: Ian Walls Signed-off-by: Chris Cormack (cherry picked from commit 968a6af37dd3472b7417bfa694bf6cf3b75e1713) Signed-off-by: Chris Nighswonger --- C4/Serials.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index 3fcbac6778..b4325c3f33 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"; -- 2.39.5