| Subject: | Downloading extra dicts is a default action, but will then fail in an automated env which can't download stuff |
During install, the process asks if extra dist should be downloaded and installed. This is made using EUMM::prompt which, during use of cpanm, PERL_MM_USE_DEFAULT is set and then automatically responds with the given default, provided as 'y' (i.e. download the dicts). However, as I'm behind a firewall that won't let me outside, the install fails.
I believe the coding for this in DictJA.pm is arguably wrong:
my $diclist = $DIC_SMALL; # default dictionary
print "External dictionaries:\n";
my $cand = defined $IO::Zlib::VERSION ? $DIC_GZIPED : $DIC_LARGE;
print "\t", $_, "\n" foreach (@$cand);
my $mess = 'Do you wish to download these files?';
my $yes = ExtUtils::MakeMaker::prompt( $mess, 'y' );
if ( $yes eq 'y' ) {
$diclist = $cand;
}
else {
print "Okay, the default dictionary is used:\n";
print "\t", $_, "\n" foreach (@$diclist);
}
I.e. the prompt is defaulting to 'y', but it is the 'n' code path that says 'Okay, the default dictionary is used'. IMO, the default prompt answer should simply be 'n'.
If this is deemed unsatisfactory, it would be nice if some other mechanism was at play so I could provide my own (base) url to the dicts, that way I can dl them manually and just make sure I point the install there.
I would be happy to provide pull request/patch for the latter if so desired...:-)
Thanks,
ken1