if( (stat \*STDOUT)[1] != (stat \*STDERR)[1] ) {
    # Send "ok" messages to both STDOUT and STDERR if they are different
    my $print= \&Test::Builder::_print;
    *Test::Builder::_print= sub {
        my( $self )= shift @_;
        $self->output( \*STDOUT );
        $self->$print( @_ );
        $self->output( \*STDERR );
        $self->$print( @_ );
        $self->output( \*STDOUT );
    };
}