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 26e1a49..200dd86 100755 (executable)
--- 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');
     }