From bcde875b47fa6be38b05ffaeb204b2d76b262287 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Mon, 11 Jun 2012 11:32:58 +0100
Subject: [PATCH] Bug 8227 Fix deprecated construct compile time warning in
 Serials

The perl parser no longer fools itself into sometimes thinking
qw( ... ) is a ( qw( ... )) this adds the required parentheses
for the foreach expression silencing the compile time warning

Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
---
 C4/Serials.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 8e5bbcb18d..58b6078c28 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -601,7 +601,7 @@ sub GetSubscriptions {
         my @sqlstrings;
         my @strings_to_search;
         @strings_to_search = map { "$_" } split( / /, $ean );
-        foreach my $index qw(biblioitems.ean) {
+        foreach my $index ( qw(biblioitems.ean) ) {
             push @bind_params, @strings_to_search;
             my $tmpstring = "OR $index = ? " x scalar(@strings_to_search);
             $debug && warn "$tmpstring";
-- 
2.39.5