Allow bracketed IPv6 address in connection string

perl5-dbi · Feb 6, 2015 · 0181787 · 0181787
1 parent f2e76e1
commit 0181787
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/DBD/mysql.pm b/lib/DBD/mysql.pm
@@ -66,6 +66,7 @@ sub _OdbcParse($$$) {
 	if ($dsn =~ /([^:;]*\[.*]|[^:;]*)[:;](.*)/) {
 	    $val = $1;
 	    $dsn = $2;
+	    $val =~ s/\[|]//g; # Remove [] if present, the rest of the code prefers plain IPv6 addresses
 	} else {
 	    $val = $dsn;
 	    $dsn = '';