diff options
| author | Ricardo Signes <rjbs@semiotic.systems> | 2021-06-12 12:22:11 -0400 |
|---|---|---|
| committer | Ricardo Signes <rjbs@semiotic.systems> | 2021-06-13 09:52:35 -0400 |
| commit | ee64eb7d2d52cccd588a0f21c548481e56b2e469 (patch) | |
| tree | ce2594b8c3f9b4b3f9c43cca946720a51b176d3e /Porting | |
| parent | 60ab4d25a67394c5b528c239e3dc48ce41bc4f91 (diff) | |
| download | perl-ee64eb7d2d52cccd588a0f21c548481e56b2e469.tar.gz | |
use www.cpan.org, not ftp.funet.fi, to check the CPAN
Diffstat (limited to 'Porting')
| -rwxr-xr-x | Porting/corelist.pl | 8 | ||||
| -rw-r--r-- | Porting/release_managers_guide.pod | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl index 7c75f06d16..eb84c18b7c 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -69,10 +69,10 @@ if ($cpan) { warn "Reading the module list from $modlistfile.gz"; open $fh, '-|', "$zcat $modlistfile.gz"; } else { - warn "About to fetch 02packages from ftp.funet.fi. This may take a few minutes\n"; - my $gzipped_content = fetch_url('http://ftp.funet.fi/pub/CPAN/modules/02packages.details.txt.gz'); + warn "About to fetch 02packages from www.cpan.org. This may take a few minutes\n"; + my $gzipped_content = fetch_url('http://www.cpan.org/modules/02packages.details.txt.gz'); unless ($gzipped_content) { - die "Unable to read 02packages.details.txt from either your CPAN mirror or ftp.funet.fi"; + die "Unable to read 02packages.details.txt from either your CPAN mirror or www.cpan.org"; } IO::Uncompress::Gunzip::gunzip(\$gzipped_content, \$content, Transparent => 0) or die "Can't gunzip content: $IO::Uncompress::Gunzip::GunzipError"; @@ -221,7 +221,7 @@ while ( my ( $module, $file ) = each %module_to_file ) { my $meta_YAML_path = "authors/id/$dist"; $meta_YAML_path =~ s/(?:tar\.gz|tar\.bz2|zip|tgz)$/meta/ or die "ERROR: bad meta YAML path: '$meta_YAML_path'"; - my $meta_YAML_url = 'http://ftp.funet.fi/pub/CPAN/' . $meta_YAML_path; + my $meta_YAML_url = 'http://www.cpan.org/' . $meta_YAML_path; if ( -e "$cpan/$meta_YAML_path" ) { $dist_to_meta_YAML{$dist} = parse_cpan_meta(slurp_utf8( $cpan . "/" . $meta_YAML_path )); diff --git a/Porting/release_managers_guide.pod b/Porting/release_managers_guide.pod index 836ad7fd79..6997b7301e 100644 --- a/Porting/release_managers_guide.pod +++ b/Porting/release_managers_guide.pod @@ -666,7 +666,7 @@ update the RMG accordingly! DAPM May 2013 ] -F<corelist.pl> uses ftp.funet.fi to verify information about dual-lived +F<corelist.pl> uses www.cpan.org to verify information about dual-lived modules on CPAN. It can use a full, local CPAN mirror and/or fall back on HTTP::Tiny to fetch package metadata remotely. |