From: Gisle Aas <gisle@aas.no>
Date: Fri, 19 Oct 2001 16:46:02 +0000 (-0700)
Subject: PERL_MM_USE_DEFAULT
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d05ba649e1d253038c7b616cb126414b024a729;p=p5sagit%2Fp5-mst-13.2.git

PERL_MM_USE_DEFAULT
Message-ID: <lrofn3i479.fsf_-_@caliper.ActiveState.com>

p4raw-id: //depot/perl@12518
---

diff --git a/lib/ExtUtils/MakeMaker.pm b/lib/ExtUtils/MakeMaker.pm
index ef8bfab..b34fe28 100644
--- a/lib/ExtUtils/MakeMaker.pm
+++ b/lib/ExtUtils/MakeMaker.pm
@@ -139,7 +139,7 @@ sub prompt ($;$) {
     my $ans;
     local $|=1;
     print "$mess $dispdef";
-    if ($ISA_TTY) {
+    if ($ISA_TTY && !$ENV{PERL_MM_USE_DEFAULT}) {
 	chomp($ans = <STDIN>);
     } else {
 	print "$def\n";
@@ -2147,6 +2147,11 @@ Command line options used by C<MakeMaker-E<gt>new()>, and thus by
 C<WriteMakefile()>.  The string is split on whitespace, and the result
 is processed before any actual command line arguments are processed.
 
+=item PERL_MM_USE_DEFAULT
+
+If set to a true value then MakeMaker's prompt function will
+always return the default without waiting for user input.
+
 =back
 
 =head1 SEE ALSO