percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-19 18:34:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix response cooking.

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-12 09:04:30 -07:00
parent 974fe3dd59
commit 81cfd3ccde
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
bin/pt-agent
View File

@@ -7260,7 +7260,8 @@ sub send_data {
while ( !$key ) { while ( !$key ) {
print `ls -l $data_file`; print `ls -l $data_file`;
print "Send $data_file [Ynaq]: "; print "Send $data_file [Ynaq]: ";
$key = lc(<STDIN>); $key = <STDIN>;
$key = lc(chomp($$key));
last DATA_FILE if $key eq 'q'; last DATA_FILE if $key eq 'q';
next DATA_FILE if $key eq 'n'; next DATA_FILE if $key eq 'n';
last PROMPT if $key eq 'y'; last PROMPT if $key eq 'y';