[svn:Module-Build] r6611 - Module-Build/trunk/lib/Module/Build

[kwilliams]

Author: kwilliams
Date: Sun Jul  2 20:05:27 2006
New Revision: 6611

Modified:
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
We should be accepting the default when we're in unattended mode, not
acting dumb.


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 Sun Jul  2 20:05:27 2006
@@ -499,9 +499,8 @@
 
   my $ans = $self->_readline();
 
-  if ( !defined($ans) ) {     # Ctrl-D
-    print "\n";
-  } elsif ( !length($ans) ) { # Default
+  if ( !defined($ans)        # Ctrl-D or unattended
+       or !length($ans) ) {  # User hit return
     print "$def\n";
     $ans = $def;
   }