From 4e11efe79ff4fb6f96bc5340301e8e5c4e5895f1 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 16 Sep 2015 11:12:04 +0100 Subject: [PATCH] Bug 14321: QA Fix Remove QA errors (keys on reference is experimental). --- Koha/Upload.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Koha/Upload.pm b/Koha/Upload.pm index e30b354..9b580ec 100644 --- a/Koha/Upload.pm +++ b/Koha/Upload.pm @@ -122,7 +122,7 @@ sub cgi { sub count { my ( $self ) = @_; - return scalar grep { !exists $self->{files}->{$_}->{errcode} } keys $self->{files}; + return scalar grep { !exists $self->{files}->{$_}->{errcode} } keys %{ $self->{files} }; } =head2 result @@ -135,7 +135,7 @@ sub result { my ( $self ) = @_; my @a = map { $self->{files}->{$_}->{id} } grep { !exists $self->{files}->{$_}->{errcode} } - keys $self->{files}; + keys %{ $self->{files} }; return @a? ( join ',', @a ): undef; } @@ -149,7 +149,7 @@ sub result { sub err { my ( $self ) = @_; my $err; - foreach my $f ( keys $self->{files} ) { + foreach my $f ( keys %{ $self->{files} } ) { my $e = $self->{files}->{$f}->{errcode}; $err->{ $f } = $e if $e; } @@ -328,7 +328,7 @@ sub _hook { sub _done { my ( $self ) = @_; $self->{done} = 1; - foreach my $f ( keys $self->{files} ) { + foreach my $f ( keys %{ $self->{files} } ) { my $fh = $self->_fh($f); $self->_register( $f, $fh? tell( $fh ): undef ) if !$self->{files}->{$f}->{errcode}; -- 2.1.0