[p5sagit/p5-mst-13.2.git] / t / lib / 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";
Commit	Line	Data
b965d173	1	sub _autoflush {
	2	my $flushed = shift;
	3	my $old_fh = select $flushed;
	4	$\| = 1;
	5	select $old_fh;
	6	}
	7
	8	_autoflush( \*STDOUT );
	9	_autoflush( \*STDERR );
	10
	11	print STDOUT "one\n";
	12	print STDERR "two\n\n";
	13	print STDOUT "three\n";