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

Test and fix bug 1206728.

Browse Source
This commit is contained in:
Daniel Nichter
2013-10-10 14:36:42 -07:00
parent a5b4781cda
commit 8b640ec2ae
4 changed files with 38 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
bin/pt-deadlock-logger
View File

@@ -4448,15 +4448,12 @@ sub main {
my $dp = $o->DSNParser();
$dp->prop('set-vars', $o->set_vars());
my $src;
if ( my $src_dsn_string = shift @ARGV ) {
$src = Cxn->new(
dsn_string => $src_dsn_string,
parent => $o->get('daemonize'),
DSNParser => $dp,
OptionParser => $o,
);
}
my $src = Cxn->new(
dsn_string => shift @ARGV,
parent => $o->get('daemonize'),
DSNParser => $dp,
OptionParser => $o,
);
my $dst;
if ( my $dst_dsn = $o->get('dest') ) {