Sign in
android
/
toolchain
/
perl
/
1121daca35c6c692602621eab28d4de19f0b347d
/
.
/
perl-5.16.2
/
cpan
/
IPC-Cmd
/
t
/
src
/
child.pl
blob: 3c198251b1117cf1c16cc2208274022051ae49e2 [
file
] [
log
] [
blame
]
$
|++;
print
"# Child has TTY? "
.
(-
t STDIN
?
"YES"
:
"NO"
)
.
$
/;
print
$_
=
<>;