[Koha-patches] [PATCH] Fix depreciation warnings in acqui/z3950_search.pl
Colin Campbell
colin.campbell at ptfs-europe.com
Tue Jun 15 19:42:18 CEST 2010
Perl generates depreciation warnings on compilation
caused by use of ambiguous syntax. Seemed that an
underlying confusion as to row's type
---
acqui/z3950_search.pl | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index 5c1a060..1dc5519 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,
--
1.7.0.1
More information about the Koha-patches
mailing list