From 523a74da3607b4bb0ef6f367ffc90ea1c499010b Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Wed, 15 Aug 2012 12:27:37 -0600
Subject: [PATCH] More debug hacks.

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

diff --git a/lib/ReadKeyMini.pm b/lib/ReadKeyMini.pm
index 184fac4d..eaffeee4 100644
--- a/lib/ReadKeyMini.pm
+++ b/lib/ReadKeyMini.pm
@@ -68,6 +68,8 @@ my %modes = (
 # This primarily comes from the Perl Cookbook, recipe 15.8
 
 {
+use Devel::Peek;
+use Data::Dumper;
 
    my $fd_stdin = fileno(STDIN);
    my $flags;
@@ -100,12 +102,18 @@ 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 ) {
+         no strict;
+         Dump(STDIN);
+         Dump(F_SETFL);
+         Dump($flags);
+         warn "STDIN=",Dumper(STDIN);
+         warn "SETFL=",Dumper(F_SETFL);
          warn "*STDIN=", Dumper(*STDIN);
          warn "fd_stdin=", Dumper($fd_stdin);
          warn "flags=", Dumper($flags);