| Subject: | y_n() broken in unattended mode |
I've got a Module::Build script, see it at
https://jc.ngo.org.uk/svnweb/jc/checkout/nik/CPAN/SVN-Web/trunk/Build.PL?rev=1010
It asks the user questions using prompt() and y_n().
Under M::B 0.2610 I can run
perl Build.PL < /dev/null
and, as documented, the default answers to the questions are accepted
and the script completes.
If I run the same command with M::B 0.2801 the first call to y_n()
enters an infinite loop, printing the question to the screen over and
over.
I've just checked, and this build script is enough to reproduce the
problem. Works under 0.2610, fails with 0.2801.
#!/usr/bin/perl
use Module::Build;
my $foo = Module::Build->y_n('A yes/no question', 'y');
print "Answer was $foo\n";
N