use map instead for on creating hash tables

2020-03-05 22:16:54 +01:00
parent da5f7f673d
commit 41b0495c2e
24 changed files with 40 additions and 144 deletions
--- a/lib/calcms/event_history.pm
+++ b/lib/calcms/event_history.pm
@@ -16,11 +16,7 @@ sub get_columns ($){

    my $dbh     = db::connect($config);
    my $cols    = db::get_columns( $dbh, 'calcms_event_history' );
-    my $columns = {};
-    for my $col (@$cols) {
-        $columns->{$col} = 1;
-    }
-    return $columns;
+    return { map { $_ => undef } @$cols };
 }

 sub get ($$){