percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-27 07:54:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Even more debug hacks.

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-15 11:54:01 -06:00
parent 1ae35a2241
commit d00702f193
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/ReadKeyMini.pm
View File

@@ -106,8 +106,11 @@ use Data::Dumper;
$term->setcc( VTIME, 0 ); $term->setcc( VTIME, 0 );
$term->setattr( $fd_stdin, TCSANOW ); $term->setattr( $fd_stdin, TCSANOW );
unless ( $PerconaTest::DONT_RESTORE_STDIN ) { unless ( $PerconaTest::DONT_RESTORE_STDIN ) {
warn Dumper($fd_stdin); warn "*STDIN=", Dumper(*STDIN);
warn Dumper($flags); warn "fd_stdin=", Dumper($fd_stdin);
warn "flags=", Dumper($flags);
warn "tell=",tell(STDIN), "\n";
warn `ls -l /proc/$PID/*`, "\n";
fcntl(STDIN, F_SETFL, $flags) fcntl(STDIN, F_SETFL, $flags)
or warn "can't fcntl F_SETFL: $!"; or warn "can't fcntl F_SETFL: $!";
} }