Skip to content
Snippets Groups Projects
Commit fd956924 authored by Leo Gordon's avatar Leo Gordon
Browse files

allow zero-length passwords in the URL

parent 5afc601f
No related branches found
No related tags found
No related merge requests found
...@@ -89,7 +89,7 @@ sub fetch { ...@@ -89,7 +89,7 @@ sub fetch {
Bio::EnsEMBL::Hive::URLFactory->new(); # make sure global instance is created Bio::EnsEMBL::Hive::URLFactory->new(); # make sure global instance is created
if( my ($conn, $user, $pass, $host, $port, $dbname, $table_name, $tparam_name, $tparam_value, $conn_param_string) = if( my ($conn, $user, $pass, $host, $port, $dbname, $table_name, $tparam_name, $tparam_value, $conn_param_string) =
$url =~ m{^(mysql://(?:(\w+)(?:\:([^/\@]+))?\@)?(?:([\w\-\.]+)(?:\:(\d+))?)?/(\w*))(?:/(\w+)(?:\?(\w+)=(\w+))?)?((?:;(\w+)=(\w+))*)$} ) { $url =~ m{^(mysql://(?:(\w+)(?:\:([^/\@]*))?\@)?(?:([\w\-\.]+)(?:\:(\d+))?)?/(\w*))(?:/(\w+)(?:\?(\w+)=(\w+))?)?((?:;(\w+)=(\w+))*)$} ) {
my %conn_param = split(/[;=]/, 'type=hive;discon=0'.$conn_param_string ); my %conn_param = split(/[;=]/, 'type=hive;discon=0'.$conn_param_string );
......
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