Commit 80201a56 authored by Franksen, Benjamin's avatar Franksen, Benjamin
Browse files

fix in lib/perl/CreateX.pm: must call map with parens and comma

parent e79652d7
......@@ -344,7 +344,7 @@ sub perform_query {
my $sth = $dbh->prepare($query);
$sth->execute;
my $colnames = [map uc @{$sth->{NAME}}];
my $colnames = [map(uc,@{$sth->{NAME}})];
$colname_handler->($colnames) if defined $colname_handler;
while (my $orig_row = $sth->fetchrow_hashref) {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment