percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-19 18:34:59 +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: $!";
}

5
t/lib/Daemon.t
View File

@@ -9,13 +9,13 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 22;
use Test::More;
use Time::HiRes qw(sleep);
use File::Temp qw( tempfile );
use Daemon;
use OptionParser;
use PerconaTest;
plan skip_all => "Hm";
use constant PTDEVDEBUG => $ENV{PTDEVDEBUG} || 0;
my $o = new OptionParser(file => "$trunk/t/lib/samples/daemonizes.pl");
@@ -263,4 +263,5 @@ ok(
# Done.
# #############################################################################
rm_tmp_files();
done_testing;
exit;