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

Debug hack for ReadKeyMini::cooked().

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-15 10:31:18 -06:00
parent 92a36715c4
commit 4e4a28bff6
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ReadKeyMini.pm
View File

@@ -100,12 +100,14 @@ my %modes = (
$term->setcc( VTIME, 1 ); $term->setcc( VTIME, 1 );
$term->setattr( $fd_stdin, TCSANOW ); $term->setattr( $fd_stdin, TCSANOW );
} }
use Data::Dumper;
sub cooked { sub cooked {
$term->setlflag($oterm); $term->setlflag($oterm);
$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 Dumper($flags);
fcntl(STDIN, F_SETFL, $flags) fcntl(STDIN, F_SETFL, $flags)
or warn "can't fcntl F_SETFL: $!"; or warn "can't fcntl F_SETFL: $!";
} }