From 4e4a28bff68cf48d610565dba5279a0b3e46022d Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Wed, 15 Aug 2012 10:31:18 -0600
Subject: [PATCH] Debug hack for ReadKeyMini::cooked().

---
 lib/ReadKeyMini.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/ReadKeyMini.pm b/lib/ReadKeyMini.pm
index 932b8513..0590c8cb 100644
--- a/lib/ReadKeyMini.pm
+++ b/lib/ReadKeyMini.pm
@@ -100,12 +100,14 @@ my %modes = (
       $term->setcc( VTIME, 1 );
       $term->setattr( $fd_stdin, TCSANOW );
    }
-
+use Data::Dumper;
    sub cooked {
       $term->setlflag($oterm);
       $term->setcc( VTIME, 0 );
       $term->setattr( $fd_stdin, TCSANOW );
       unless ( $PerconaTest::DONT_RESTORE_STDIN ) {
+         warn Dumper($fd_stdin);
+         warn Dumper($flags);
          fcntl(STDIN, F_SETFL, $flags)
                         or warn "can't fcntl F_SETFL: $!";
       }