But simply because there is no controlling terminal does NOT mean that there is nothing on STDIN.
Were you reading that code backwards?
die usage() if @ARGV == 0 and -t;
# if ((THERE ARE NO FILENAMES IN ARGV) &&
# (STDIN IS HOOKED UP TO A TERMINAL))
# {
# COMPLAIN;
# }We only complain if STDIN *is* a tty.
I have absolutely no problem with the idea that one wants to use '-t' to establish that there is a controlling terminal, AKA a ttyline - but the problem is the false assumption that this is in some way associated with STDIN.
% perldoc -f -X ... If the argument is omitted, tests "$_", except for "-t", which tests STDIN.
-- Steve
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
