/usr/share/doc/libcpan-perl-releases-perl/examples/auditlinks.pl is in libcpan-perl-releases-perl 1.62-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | use strict;
use warnings;
use Test::More qw[no_plan];
use CPAN::Perl::Releases qw[perl_tarballs perl_versions];
use HTTP::Tiny;
my $baseurl = 'http://cpan.mirror.local/CPAN/authors/id/';
foreach my $vers ( perl_versions() ) {
my $balls = perl_tarballs( $vers );
foreach my $tarball ( keys %$balls ) {
my $url = $baseurl . $balls->{$tarball};
my $resp = HTTP::Tiny->new( )->get( $url );
unless ( $resp->{success} ) {
fail( "$vers -> $tarball -> $url" );
}
else {
pass( "$vers -> $tarball -> $url" );
}
}
}
|