"This patch was applied at 1.13. (Note, but it's still failing.)"

##</code><code>##

Dubious, test returned 9 (wstat 2304, 0x900)
All x subtests passed

##</code><code>##

[Test::TCP] Child process does not block(PID: -xxxx, PPID: xxxx) at ... \lib/Test/TCP.pm line 121.
t/xxxx.t ................. ok

##</code><code>##

sub start {
    my $self = shift;
    if ( my $pid = fork() ) {
        # parent.
        $self->{pid} = $pid;
        Test::TCP::wait_port($self->port);
        return;
    } elsif ($pid == 0) {
        # child process
        $self->{code}->($self->port);
        # should not reach here
        if (kill 0, $self->{_my_pid}) { # warn only parent process still exists
            warn("[Test::TCP] Child process does not block(PID: $$, PPID: $self->{_my_pid})"); # line 121
        }
        exit 0;
    } else {
        die "fork failed: $!";
    }
}

##</code><code>##

[Test::TCP] Child process does not block(PID: -xxxx, PPID: xxxx) at ... /Test/TCP.pm line 121.
Cannot open client socket: No connection could be made because the target machine actively refused it. at t/10_oo.t line 21.
# Looks like you planned 22 tests but ran 20.
# Looks like your test exited with 10061 just after 20.
t/xxxx.t ................... 
Dubious, test returned 77 (wstat 19712, 0x4d00)
Failed 2/22 subtests

##</code><code>##

my $sock = IO::Socket::INET->new(
    PeerPort => $server->port,
    PeerAddr => '127.0.0.1',
    Proto    => 'tcp'
) or die "Cannot open client socket: $!";

##</code><code>##

[Test::TCP] Child process does not block(PID: -xxxx, PPID: xxxx) at ... lib/Test/TCP.pm line 121.

#   Failed test 'socket is connected'
#   at t/09_fork.t line 35.
# Cannot open client socket: 
# Looks like you planned 6 tests but ran 5.
# Looks like you failed 1 test of 5 run.
t/09_fork.t ................. 
Dubious, test returned 1 (wstat 256, 0x100)
Failed 2/6 subtests

##</code><code>##

        # after the child has exited, we need to make sure that
        # the server hasn't gone away.
        my $sock = IO::Socket::INET->new(
            PeerPort => $port,
            PeerAddr => '127.0.0.1',
            Proto    => 'tcp'
        );
        if (! ok $sock, "socket is connected") { #line 35
            return diag("Cannot open client socket: $!");
        }