From d7a6f17f11f625b268ba0327a7f28ec5123e8183 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Tue, 15 Jun 2010 18:42:18 +0100
Subject: [PATCH] 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>
---
 acqui/z3950_search.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index 5c1a06036b..1dc551935f 100755
--- 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,