percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-12-24 02:01:42 +08:00
Code Issues Packages Projects Releases Wiki Activity

More debug hacks.

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-15 12:27:37 -06:00
parent d00702f193
commit 523a74da36
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/ReadKeyMini.pm
View File

@@ -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);