From 81cfd3ccde0e8a37a4a6673190b0d1a492480fc8 Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Wed, 12 Jun 2013 09:04:30 -0700
Subject: [PATCH] Fix response cooking.

---
 bin/pt-agent | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/pt-agent b/bin/pt-agent
index ba3b74ab..5110a7a9 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -7260,7 +7260,8 @@ sub send_data {
          while ( !$key ) {
             print `ls -l $data_file`;
             print "Send $data_file [Ynaq]: ";
-            $key = lc(<STDIN>);
+            $key = <STDIN>;
+            $key = lc(chomp($$key));
             last DATA_FILE if $key eq 'q'; 
             next DATA_FILE if $key eq 'n';
             last PROMPT    if $key eq 'y';