From: Jared Camins-Esakov <jcamins@cpbibliography.com>
Date: Sat, 27 Apr 2013 01:32:49 +0000 (-0400)
Subject: Bug 9659 follow-up: correct syntax for older Perl
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=906bf789febd3e97bd23ed2cc1fcf3233bdfba9c;p=koha.git

Bug 9659 follow-up: correct syntax for older Perl

A construction that was a syntax error in older versions of Perl was
causing problems for jenkins. This patch fixes it.
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
---

diff --git a/t/db_dependent/ReportsGuided.t b/t/db_dependent/ReportsGuided.t
index 26e1a49271..200dd86bef 100755
--- a/t/db_dependent/ReportsGuided.t
+++ b/t/db_dependent/ReportsGuided.t
@@ -64,7 +64,7 @@ SKIP: {
         'Not defined authorised value category is invalid');
 
     # Loop through the reserved authorised values
-    foreach my $authorised_value ( keys GetReservedAuthorisedValues() ) {
+    foreach my $authorised_value ( keys %{GetReservedAuthorisedValues()} ) {
         ok( IsAuthorisedValueValid($authorised_value),
             '\''.$authorised_value.'\' is a reserved word, and thus a valid authorised value');
     }