Bug 13522: Make it explicit that scalar containd a hash ref

Prior to perl 5.12 keys can only operate on a hash. So although
$data[0] ( thats an abysmal variable name! ) will contain a hash ref
the perl compiler cannot deduce that from the context and gives
a syntax error. Add the hash sigil to make the context explicit and
the compiler can generate the correct code.

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/tools/viewlog.pl b/tools/viewlog.pl
index 9f68a8a..e526c1f 100755 (executable)
--- a/tools/viewlog.pl
+++ b/tools/viewlog.pl
@@ -211,7 +211,7 @@ if ($do_it) {
 
             # First line with heading
             # Exporting bd id seems useless
-            my @headings = grep { $_ ne 'action_id' } sort keys $data[0];
+            my @headings = grep { $_ ne 'action_id' } sort keys %{$data[0]};
             if ( $csv->combine(@headings) ) {
                 $content .= $csv->string() . "\n";
             }