view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

unless (eval { symlink("",""); 1 }) {
    print STDERR "This OS does not support symlinks.\n";
    exit 0;
}

my $create_symlinks = Module::Build->subclass(code => <<'EOF');
    sub ACTION_install {
        my $builder = shift;
        
        $builder->SUPER::ACTION_install(@_);
        
        my $script_dest = File::Spec->catdir(
            $builder->{'properties'}->{'destdir'},
            $builder->install_destination('script'),
        );
        
        foreach my $script_name (qw{apt-pm apt-cpan apt-pm-web dh-make-pm cpan-patches dpkg-scanpmpackages}) {
            my $alias = File::Spec->catfile($script_dest, $script_name);
            unless (-l $alias) {
                print "Symlinking $alias\n";