Bug 8463 - Koha/SearchEngine/Solr/Search.pm fails perlcritic test

[koha.git] / Koha / SearchEngine / Solr / Search.pm

diff --git a/Koha/SearchEngine/Solr/Search.pm b/Koha/SearchEngine/Solr/Search.pm
index 5c626ba..b177ca4 100644 (file)
--- a/Koha/SearchEngine/Solr/Search.pm
+++ b/Koha/SearchEngine/Solr/Search.pm
@@ -38,7 +38,8 @@ sub search {
               )
             : ( "recordid", "id" );
 
-    my $recordtype = ref($filters->{recordtype}) eq 'ARRAY'
+    my $recordtype;
+    $recordtype = ref($filters->{recordtype}) eq 'ARRAY'
                     ? $filters->{recordtype}[0]
                     : $filters->{recordtype}
                 if defined $filters && defined $filters->{recordtype};