view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

NB: 'make test' will fail
PRESS [ENTER]
EOM
}

my $message = <<EOM;
Would you like to install Japanese documentation? 
If you enter 'y' then i will try to install Japanese docs alongside 
English ones. On platforms using 'man' manpages (typically on UN*X)
Japanese documentation will be available transparently to users whose 
locale language is set to Japanese.
On other platforms the documentation will be available as Audio::Beep_jp
Default is to not install Japanese docs. [N/y]
EOM
chop($message);

my $jp_docs = prompt($message);

$jp_docs = ($jp_docs =~ /^y(es)?$/i ? 1 : 0);

if ($jp_docs) {

Makefile.PL  view on Meta::CPAN

        }
        print OUT;
    }
    close(IN) or die "Cannot close Makefile: $!";
    close(OUT) or die "Cannot close Makefile.hacked: $!";
    if ($hack and $man3_dir) {
        mkpath(catdir($man3_dir, 'jp'));
        unlink('Makefile') or die "Cannot unlink Makefile: $!";
        rename('Makefile.hacked', 'Makefile') 
            or die "Cannot rename Makefile.hacked: $!";
        print "DONE (install with locale support)\n";
    } else {
        unlink 'Makefile.hacked';
        print "DONE (install as Audio::Beep_jp)\n";
    }
}