fixes pt-osc double password request - issue 1286250

This commit is contained in:
Frank Cizmich
2014-05-28 17:04:59 -03:00
parent 72fab9ad8f
commit e7d352b6ec

View File

@@ -3771,7 +3771,7 @@ sub connect {
my $dbh = $self->{dbh}; my $dbh = $self->{dbh};
if ( !$dbh || !$dbh->ping() ) { if ( !$dbh || !$dbh->ping() ) {
if ( $self->{ask_pass} && !$self->{asked_for_pass} ) { if ( $self->{ask_pass} && !$self->{asked_for_pass} && !defined $dsn->{p}) {
$dsn->{p} = OptionParser::prompt_noecho("Enter MySQL password: "); $dsn->{p} = OptionParser::prompt_noecho("Enter MySQL password: ");
$self->{asked_for_pass} = 1; $self->{asked_for_pass} = 1;
} }