Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
cpan
/
Test-Harness
/
t
/
sample-tests
/
out_err_mix
blob: c802eb4a119cbadd6d5f9ee3691c9109d16af0ea [
file
] [
log
] [
blame
]
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"
;