From d7a6f17f11f625b268ba0327a7f28ec5123e8183 Mon Sep 17 00:00:00 2001 From: Colin Campbell 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 --- 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, -- 2.39.5