Fix depreciation warnings in acqui/z3950_search.pl

Perl generates depreciation warnings on compilation
caused by use of ambiguous syntax. Seemed that an
underlying confusion as to row's type

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index 5c1a060..1dc5519 100755 (executable)
--- a/acqui/z3950_search.pl
+++ b/acqui/z3950_search.pl
@@ -90,14 +90,14 @@ my $DEBUG = 0;    # if set to 1, many debug message are send on syslog.
 my $frameworks = getframeworks;
 my @frameworkcodeloop;
 foreach my $thisframeworkcode ( keys %$frameworks ) {
-    my %row = (
+    my $row = {
         value         => $thisframeworkcode,
         frameworktext => $frameworks->{$thisframeworkcode}->{'frameworktext'},
-    );
-    if ( %row->{'value'} eq $frameworkcode){
-        %row->{'active'} = 'true';
+    };
+    if ( $row->{'value'} eq $frameworkcode){
+        $row->{'active'} = 'true';
     }
-    push @frameworkcodeloop, \%row;
+    push @frameworkcodeloop, $row;
 }
 
 $template->param( frameworkcode => $frameworkcode,