view release on metacpan or  search on metacpan

lib/PGXN/API/Sync.pm  view on Meta::CPAN

        return;
    }

    my $dist_dir = catdir(
        PGXN::API->instance->source_dir,
        lc $meta->{name}
    );
    make_path $dist_dir unless -e $dist_dir && -d _;

    foreach my $member ($zip->members) {
        my $fn = catfile $dist_dir, split m{/} => $member->fileName;
        say "    $fn\n" if $self->verbose > 2;

        if ($member->isSymbolicLink) {
            # Delete exsting so Archive::Zip won't fail to create it.
            warn "Cannot unlink $fn: $!\n" if -e $fn && !unlink $fn;
        } else {
            # Make sure the member is readable by everyone.
            $member->unixFileAttributes( $member->isDirectory ? 0755 : 0644 );
        }