percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-26 05:58:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update DSNParser in all tools.

Browse Source
This commit is contained in:
Daniel Nichter
2012-05-24 11:25:20 -06:00
parent bb5d64b4a6
commit c670ac4ba4
23 changed files with 197 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
bin/pt-table-usage
View File

@@ -28,6 +28,8 @@ use Data::Dumper;
$Data::Dumper::Indent = 0;
$Data::Dumper::Quotekeys = 0;
my $dsn_sep = qr/(?<!\\),/;
eval {
require DBI;
};
@@ -82,7 +84,8 @@ sub parse {
my %final_props;
my $opts = $self->{opts};
foreach my $dsn_part ( split(/,/, $dsn) ) {
foreach my $dsn_part ( split($dsn_sep, $dsn) ) {
$dsn_part =~ s/\\,/,/g;
if ( my ($prop_key, $prop_val) = $dsn_part =~ m/^(.)=(.*)$/ ) {
$given_props{$prop_key} = $prop_val;
}