Bug 15258: Fix Perl scripts declaring unused variables

[srvgit] / Koha / QueryParser / Driver / PQF / Util.pm

diff --git a/Koha/QueryParser/Driver/PQF/Util.pm b/Koha/QueryParser/Driver/PQF/Util.pm
index af3c81b..99e36f0 100644 (file)
--- a/Koha/QueryParser/Driver/PQF/Util.pm
+++ b/Koha/QueryParser/Driver/PQF/Util.pm
@@ -41,7 +41,6 @@ Convert a hashref with a Bib-1 mapping into its PQF string representation.
 sub attributes_to_attr_string {
     my ($attributes) = @_;
     my $attr_string = '';
-    my $value;
     foreach my $key ( sort keys %{$attributes} ) {
         next unless looks_like_number($key);
         $attr_string .= ' @attr ' . $key . '=' . $attributes->{ $key } . ' ';