My first time submitting a merge request (https://salsa.debian.org/debian/devscripts/-/merge_requests/666). I believe the build failure is unrelated to my change.

That said, here is the block of code that contains my changes. Added "{ authorized => 'true' }" to the filters, and "not => [{ status => 'backpan' }]," to the $mcpan->release call to retrieve release information from CPAN.

# By default, skip developer releases (versions with a "_", archives with a
    # "-TRIAL" suffix, ...): they aren't meant to be packaged
    my @filters = ({ distribution => $dist });
    push @filters, { maturity => $maturity } unless $maturity eq 'any';
    # We only want "authorized" releases/uploads
    push @filters, { authorized => 'true' };
    my $mcpan    = MetaCPAN::Client->new;
    # Skip releases in "BackPAN"
    my $releases = $mcpan->release({
            all    => \@filters,
            not    => [{ status => 'backpan' }],
            fields => [qw(name version maturity download_url)] });

I hope this helps.

Bruce S.

Reply via email to