Item11262: fix tools/configure on older Perls

Support for automatic derefencing of hashrefs was added in Perl 5.14
foswiki · Jan 12, 2015 · f77d115 · f77d115
1 parent 031addc
commit f77d115
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/core/tools/configure b/core/tools/configure
@@ -335,7 +335,7 @@ if ($action) {
     _reply($response);
 
     # Copy the changes into the "set" hash to be applied by save.
-    if ( keys $response->{changes} ) {
+    if ( keys %{ $response->{changes} } ) {
         if ( $actions{save} ) {
             $params->{set} = $response->{changes};
         }