Commit e745f369 authored by Andreas Kusalananda Kähäri's avatar Andreas Kusalananda Kähäri
Browse files

Correct faulty regular expression for parsing database names.

parent dc47a1cf
......@@ -134,7 +134,7 @@ foreach my $server (@servers) {
while ( $sth->fetch() ) {
my ( $db_type, $db_assembly, $db_suffix ) = ( $database =~
/^[a-z]+_[a-z]+_([a-z]+)_([0-9]+)_([0-9]+[a-z]?)$/ );
/^[a-z]+_[a-z]+_([a-z]+)_[0-9]+_([0-9]+)([a-z]?)$/ );
if ( !defined($db_type)
|| !defined($db_assembly)
......
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