percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-23 21:05:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

More debug hacks.

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-15 12:58:55 -06:00
parent 53c382730a
commit b5d7e7d0b6
2 changed files with 3 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/ReadKeyMini.pm
View File

@@ -108,18 +108,7 @@ use Data::Dumper;
$term->setcc( VTIME, 0 );
$term->setattr( $fd_stdin, TCSANOW );
unless ( $PerconaTest::DONT_RESTORE_STDIN ) {
no strict;
if ( -t STDIN ) { warn "STD is tty\n"; }
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);
warn "tell=",tell(STDIN), "\n";
warn `ls -l /proc/$PID/*`, "\n";
fcntl(STDIN, F_SETFL, int($flags))
or warn "can't fcntl F_SETFL: $!";
}