mirror of
https://github.com/percona/percona-toolkit.git
synced 2026-02-27 02:00:57 +08:00
Updated DNSParser in all programs
This commit is contained in:
@@ -2406,10 +2406,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1972,10 +1972,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -2316,10 +2316,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -793,10 +793,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -204,10 +204,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1468,10 +1468,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -2788,10 +2788,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -214,10 +214,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1976,10 +1976,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -2199,7 +2199,7 @@ sub parse {
|
||||
foreach my $key ( keys %$opts ) {
|
||||
PTDEBUG && _d('Finding value for', $key);
|
||||
$final_props{$key} = $given_props{$key};
|
||||
if ( !defined $final_props{$key}
|
||||
if ( !defined $final_props{$key}
|
||||
&& defined $prev->{$key} && $opts->{$key}->{copy} )
|
||||
{
|
||||
$final_props{$key} = $prev->{$key};
|
||||
@@ -2226,10 +2226,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
@@ -2343,7 +2339,7 @@ sub get_dbh {
|
||||
my $dbh;
|
||||
my $tries = 2;
|
||||
while ( !$dbh && $tries-- ) {
|
||||
PTDEBUG && _d($cxn_string, ' ', $user, ' ', $pass,
|
||||
PTDEBUG && _d($cxn_string, ' ', $user, ' ', $pass,
|
||||
join(', ', map { "$_=>$defaults->{$_}" } keys %$defaults ));
|
||||
|
||||
$dbh = eval { DBI->connect($cxn_string, $user, $pass, $defaults) };
|
||||
@@ -2541,7 +2537,7 @@ sub set_vars {
|
||||
}
|
||||
}
|
||||
|
||||
return;
|
||||
return;
|
||||
}
|
||||
|
||||
sub _d {
|
||||
|
||||
@@ -882,10 +882,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1248,10 +1248,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1969,10 +1969,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1904,10 +1904,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -2315,10 +2315,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1477,7 +1477,7 @@ sub parse {
|
||||
foreach my $key ( keys %$opts ) {
|
||||
PTDEBUG && _d('Finding value for', $key);
|
||||
$final_props{$key} = $given_props{$key};
|
||||
if ( !defined $final_props{$key}
|
||||
if ( !defined $final_props{$key}
|
||||
&& defined $prev->{$key} && $opts->{$key}->{copy} )
|
||||
{
|
||||
$final_props{$key} = $prev->{$key};
|
||||
@@ -1504,10 +1504,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
@@ -1621,7 +1617,7 @@ sub get_dbh {
|
||||
my $dbh;
|
||||
my $tries = 2;
|
||||
while ( !$dbh && $tries-- ) {
|
||||
PTDEBUG && _d($cxn_string, ' ', $user, ' ', $pass,
|
||||
PTDEBUG && _d($cxn_string, ' ', $user, ' ', $pass,
|
||||
join(', ', map { "$_=>$defaults->{$_}" } keys %$defaults ));
|
||||
|
||||
$dbh = eval { DBI->connect($cxn_string, $user, $pass, $defaults) };
|
||||
@@ -1819,7 +1815,7 @@ sub set_vars {
|
||||
}
|
||||
}
|
||||
|
||||
return;
|
||||
return;
|
||||
}
|
||||
|
||||
sub _d {
|
||||
|
||||
@@ -156,10 +156,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -879,10 +879,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1973,10 +1973,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
@@ -1921,10 +1921,6 @@ sub parse {
|
||||
}
|
||||
}
|
||||
|
||||
if ($final_props{F}) {
|
||||
%final_props = ( 'F' => $final_props{F} );
|
||||
}
|
||||
|
||||
return \%final_props;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user