From bcde875b47fa6be38b05ffaeb204b2d76b262287 Mon Sep 17 00:00:00 2001 From: Colin Campbell 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 Signed-off-by: Paul Poulain --- 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