view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

# Ask if we want to download the source.
my $sourcefile = $ICONV_SOURCE;
if (! -f $sourcefile) {
    my $yn = prompt("iconv source file $sourcefile does not exist. Download it now?", "y");
    if ($yn =~ /^y(?:es)?$/i) {
        my @cmd = ($^X, File::Spec->catfile("src", "fetchsrc.pl"), "--version", $ICONV_VERSION);
        system(@cmd);
    }
}

# If the source hasn't been expanded, then unpack it

if (! -d $ICONV_SOURCE_DIR) {
    my $yn = prompt("Mecab source directory has not been unpacked yet. Unpack it now?", "y");
    if ($yn =~ /^y(?:es)?$/i) {
        eval {
            require Archive::Tar;
            Archive::Tar->can_handle_compressed_files or die "No compression support :(";
        };
        if ($@) {
            print STDERR "Archive extraction requires Archive::Tar (with IO::Zlib)\n";