From 906bf789febd3e97bd23ed2cc1fcf3233bdfba9c Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Fri, 26 Apr 2013 21:32:49 -0400 Subject: [PATCH] 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 --- t/db_dependent/ReportsGuided.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'); } -- 2.39.2