Commit ad05df94 authored by Andy Yates's avatar Andy Yates
Browse files

Cleanup of code with brackets due to 5.14 issues

parent d8707a99
......@@ -463,7 +463,7 @@ g.seq_region_id=ae.seq_region_id and ae.exc_type='HAP'", [qw(gene_id)]
print "Done Get Genes query...\n---------------------\n";
my %hash = map { $_->[0] } @$gene_info;
my $ecount = scalar keys %hash, "\n\n";
my $ecount = scalar(keys(%hash)). "\n\n";
my %old;
......
......@@ -486,7 +486,7 @@ g.seq_region_id=ae.seq_region_id and ae.exc_type='HAP'", [qw(gene_id)]
print "Done Get Genes query...\n---------------------\n";
my %hash = map { $_->[0] } @$gene_info;
my $ecount = scalar keys %hash, "\n\n";
my $ecount = scalar(keys(%hash)). "\n\n";
my %old;
......
Markdown is supported
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