Author: ericwilhelm
Date: Thu Mar 1 23:07:21 2007
New Revision: 9202
Modified:
Module-Build/trunk/lib/Module/Build/Base.pm
Log:
lib/Module/Build/Base.pm - use '-t' instead of fileno to decide if eof check on
STDIN is safe in _is_unattended()
Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Thu Mar 1 23:07:21 2007
@@ -471,8 +471,8 @@
sub _is_unattended {
my $self = shift;
- return $ENV{PERL_MM_USE_DEFAULT}
- || ( !$self->_is_interactive && !defined fileno STDIN );
+ return $ENV{PERL_MM_USE_DEFAULT} ||
+ ( !$self->_is_interactive && (-t STDIN || eof(STDIN)));
}
sub _readline {
