Update DSNParser in all tools.

bin/pt-archiver

@@ -2531,6 +2531,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-config-diff

@@ -2120,6 +2120,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-deadlock-logger

@@ -2464,6 +2464,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-duplicate-key-checker

@@ -969,6 +969,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-find

@@ -403,6 +403,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-fk-error-logger

@@ -1621,6 +1621,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-heartbeat

@@ -2205,6 +2205,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-index-usage

@@ -413,6 +413,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-kill

@@ -2124,6 +2124,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-online-schema-change

@@ -2326,6 +2326,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-query-advisor

@@ -1063,6 +1063,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-query-digest

@@ -1075,6 +1075,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-show-grants

@@ -1445,6 +1445,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-slave-delay

@@ -2117,6 +2117,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-slave-find

@@ -2097,6 +2097,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-slave-restart

@@ -2463,6 +2463,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-table-checksum

@@ -1649,6 +1649,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-table-sync

@@ -2283,6 +2283,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-table-usage

@@ -394,6 +394,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-upgrade

@@ -1075,6 +1075,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-variable-advisor

@@ -2121,6 +2121,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};
 

bin/pt-visual-explain

@@ -2119,6 +2119,8 @@ sub copy {
 sub set_vars {
    my ($self, $dbh, $vars) = @_;
 
+   return unless $vars;
+
    foreach my $var ( sort keys %$vars ) {
       my $val = $vars->{$var}->{val};