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>
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";