From b14ab8ee6c54ccf846b7f0f36d314370507cc71b 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 --- C4/Serials.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index 8e5bbcb..58b6078 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"; -- 1.7.10