Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
df4a98bb
Commit
df4a98bb
authored
Nov 07, 2014
by
Leo Gordon
Browse files
support "accumulation" of a scalar by using an empty signature
parent
15df6d47
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
modules/Bio/EnsEMBL/Hive/Utils/URL.pm
modules/Bio/EnsEMBL/Hive/Utils/URL.pm
+1
-1
No files found.
modules/Bio/EnsEMBL/Hive/Utils/URL.pm
View file @
df4a98bb
...
...
@@ -40,7 +40,7 @@ sub parse {
my
$url
=
shift
@
_
or
return
;
if
(
my
(
$dbconn_part
,
$driver
,
$user
,
$pass
,
$host
,
$port
,
$dbname
,
$table_name
,
$tparam_name
,
$tparam_value
,
$conn_param_string
)
=
$url
=~
m{^((\w*)://(?:(\w+)(?:\:([^/\@]*))?\@)?(?:([\w\-\.]+)(?:\:(\d*))?)?/([\w\-]*))(?:/(\w+)(?:\?(\w+)=([\w\[\]\{\}]
+
))?)?((?:;(\w+)=(\w+))*)$}
)
{
$url
=~
m{^((\w*)://(?:(\w+)(?:\:([^/\@]*))?\@)?(?:([\w\-\.]+)(?:\:(\d*))?)?/([\w\-]*))(?:/(\w+)(?:\?(\w+)=([\w\[\]\{\}]
*
))?)?((?:;(\w+)=(\w+))*)$}
)
{
my
%conn_params
=
split
(
/[;=]/
,
'
type=hive;discon=0
'
.
$conn_param_string
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment