Skip to content
Snippets Groups Projects
Commit 7bd2c316 authored by Abel Ureta-Vidal's avatar Abel Ureta-Vidal
Browse files

Now can parse a locator with space character in it. Needed as when using...

Now can parse a locator with space character in it. Needed as when using Registry with multiple species one needs to specify e.g. -species "Homo sapiens"
parent a0a0fbc4
No related branches found
No related tags found
No related merge requests found
......@@ -71,14 +71,14 @@ sub new{
my ($class,$string) = @_;
my ($module,%hash);
$string =~ /(\S+?)\/(\S+)/ || die "Could not parse [$string] as a ensembl database locator. Needs database_module/params";
$string =~ /(\S+?)\/([\S+\s*]+)/ || die "Could not parse [$string] as a ensembl database locator. Needs database_module/params";
$module = $1;
my $param = $2;
&_load_module($module);
my @param = split(/;/,$param);
foreach my $keyvalue ( @param ) {
$keyvalue =~ /(\S+?)=(\S*)/ || do { warn("In loading $keyvalue, could not split into keyvalue for loading $module. Ignoring"); next; };
$keyvalue =~ /(\S+?)=([\S*\s*]*)/ || do { warn("In loading $keyvalue, could not split into keyvalue for loading $module. Ignoring"); next; };
my $key = $1;
my $value = $2;
......
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