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
---
C4/Serials.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/C4/Serials.pm b/C4/Serials.pm
index 07f0948..acd48b1 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.11.rc0
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
