From 974fe3dd591c05109434727079559736aeb0df38 Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Wed, 12 Jun 2013 09:00:59 -0700
Subject: [PATCH] ls -l the data file before prompting to send it.

---
 bin/pt-agent | 1 +
 1 file changed, 1 insertion(+)

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