out_err_mix (revision b39c515898423c8d899e35282f4b395f7cad3298) - OpenGrok cross reference for /openbsd-src/gnu/usr.bin/perl/cpan/Test-Harness/t/sample-tests/out_err_mix

sub _autoflush {
    my $flushed = shift;
    my $old_fh  = select $flushed;
    $| = 1;
    select $old_fh;
}

_autoflush( \*STDOUT );
_autoflush( \*STDERR );

print STDOUT "one\n";
print STDERR "two\n\n";
print STDOUT "three\n";