This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
AltaVista is no more.
[perl5.git] / pod / perlmodlib.PL
index 99fca65..063e56c 100644 (file)
 #!../miniperl
 
-$ENV{LC_ALL} = 'C';
+use strict;
+use warnings;
 
-use FindBin;
-chdir $FindBin::Bin or die "$0: Can't chdir $FindBin::Bin: $!";
+local $ENV{LC_ALL} = 'C';
 
-my $Quiet = @ARGV && $ARGV[0] eq '-q';
+my $Quiet;
+@ARGV = grep { not($_ eq '-q' and $Quiet = 1) } @ARGV;
 
-open (OUT, ">perlmodlib.pod") or die $!;
-my (@pragma, @mod, @files);
+if (@ARGV) {
+    my $workdir = shift;
+    chdir $workdir
+        or die "Couldn't chdir to '$workdir': $!";
+}
+require './regen/regen_lib.pl';
 
 # MANIFEST itself is Unix style filenames, so we have to assume that Unix style
 # filenames will work.
 
-open (MANIFEST, "../MANIFEST") or die $!;
-@files = grep m#(?:\.pm|\.pod|_pm\.PL)#, map {s/\s.*//s; $_}
-    grep {m#^lib# || m#^ext#} grep !m#/(?:t|demo)/#, <MANIFEST>;
+open MANIFEST, '<', 'MANIFEST'
+    or die "Can't open MANIFEST: $!";
+my @files =
+    grep !m#/perl.*\.pod#,
+    grep m#(?:\.pm|\.pod|_pm\.PL)#,
+    map {s/\s.*//s; $_}
+    grep { m#^(lib|ext|dist|cpan)/# && !m#/(?:t|demo|corpus)/# }
+    <MANIFEST>;
+close MANIFEST
+    or die "$0: failed to close MANIFEST: $!";
+
+my $out = open_new('pod/perlmodlib.pod', undef,
+                   {by => "$0 extracting documentation",
+                    from => 'the Perl source files'}, 1);
 
 my %exceptions = (
     'abbrev' => 'Text::Abbrev',
     'carp' => 'Carp',
     'getopt' => 'Getopt::Std',
-    'B<CGI::Carp>' => 'CGI::Carp',
-    'ModuleInfo' => 'Module::Build::ModuleInfo',
-    '$notes_name' => 'Module::Build::Notes',
     'Encode::MIME::NAME' => 'Encode::MIME::Name',
     'libnetFAQ' => 'Net::libnetFAQ',
 );
 
+my (@pragma, @mod);
+
 for my $filename (@files) {
-    unless (open MOD, '<', "../$filename") {
-       warn "Couldn't open ../$filename: $!";
+    unless (open MOD, '<', $filename) {
+        warn "Couldn't open $filename: $!";
        next;
     }
 
+    my ($name, $thing);
+    my $foundit = 0;
+    {
+       local $/ = "";
+       while (<MOD>) {
+           next unless /^=head1 NAME/;
+           $foundit++;
+           last;
+       }
+    }
+    unless ($foundit) {
+        next if pod_for_module_has_head1_NAME($filename);
+        die "p5p-controlled module $filename missing =head1 NAME\n"
+            if $filename !~ m{^(dist/|cpan/)}n # under our direct control
+            && $filename !~ m{/_[^/]+\z}       # not private
+            && $filename ne 'lib/meta_notation.pm'      # no pod
+            && $filename ne 'lib/overload/numbers.pm';  # no pod
+        warn "$filename missing =head1 NAME\n" unless $Quiet;
+       next;
+    }
+    my $title = <MOD>;
+    chomp $title;
+    close MOD
+        or die "Error closing $filename: $!";
 
-     my ($name, $thing);
-     my $foundit=0;
-     {
-         local $/="";
-         while (<MOD>) {
-             next unless /^=head1 NAME/;
-             $foundit++;
-             last;
-         }
-     }
-     unless ($foundit) {
-         warn "$filename missing =head1 NAME (OK if respective .pod exists)\n"
-            unless $Quiet;
-         next;
-     }
-     my $title = <MOD>;
-     chomp($title);
-     close MOD;
-
-     ($name, $thing) = split / --? /, $title, 2;
-
-     unless ($name and $thing) {
-         warn "$filename missing name\n"  unless $name;
-         warn "$filename missing thing\n" unless $thing or $Quiet;
-         next;
-     }
-
-     $name =~ s/[^A-Za-z0-9_:\$<>].*//;
-     $name = $exceptions{$name} || $name;
-     $thing =~ s/^perl pragma to //i;
-     $thing = ucfirst($thing);
-     $title = "=item $name\n\n$thing\n\n";
-
-     if ($name =~ /[A-Z]/) {
-          push @mod, $title;
-     } else {
-          push @pragma, $title;
-     }
+    ($name, $thing) = split /\s+--?\s+/, $title, 2;
 
+    unless ($name and $thing) {
+       warn "$filename missing name\n"  unless $name;
+       warn "$filename missing thing\n" unless $thing or $Quiet;
+       next;
+    }
+
+    $name =~ s/[^A-Za-z0-9_:\$<>].*//;
+    $name = $exceptions{$name} || $name;
+    $thing =~ s/^perl pragma to //i;
+    $thing = ucfirst $thing;
+    $title = "=item $name\n\n$thing\n\n";
+
+    if ($name =~ /[A-Z]/) {
+       push @mod, $title;
+    } else {
+       push @pragma, $title;
+    }
+}
+
+sub pod_for_module_has_head1_NAME {
+    my ($filename) = @_;
+    (my $pod_file = $filename) =~ s/\.pm\z/.pod/ or return 0;
+    return 0 if !-e $pod_file;
+    open my $fh, '<', $pod_file
+        or die "Can't open $pod_file for reading: $!\n";
+    local $/ = '';
+    while (my $para = <$fh>) {
+        return 1 if $para =~ /\A=head1 NAME$/m;
+    }
+    return 0;
 }
 
 # Much easier to special case it like this than special case the depending on
 # and parsing lib/Config.pod, or special case opening configpm and finding its
 # =head1 (which is not found with the $/="" above)
-push @mod, <<'CONFIG';
-=item Config
+push @mod, "=item Config\n\nAccess Perl configuration information\n\n";
 
-Access Perl configuration information
 
-CONFIG
-
-print OUT <<'EOF';
-=for maintainers
-Generated by perlmodlib.PL -- DO NOT EDIT!
+# The intent of using =cut as the heredoc terminator is to make the whole file
+# parse as (reasonably) sane Pod as-is to anything that attempts to
+# brute-force treat it as such. The content is already useful - this just
+# makes it tidier, by stopping anything doing this mistaking the rest of the
+# Perl code for Pod. eg http://search.cpan.org/dist/perl/pod/perlmodlib.PL
 
+print $out <<'=cut';
 =head1 NAME
 
 perlmodlib - constructing new Perl modules and finding existing ones
@@ -136,11 +167,12 @@ The following pragmas are defined (and have their own documentation).
 
 =over 12
 
-EOF
+=cut
+
+print $out $_ for sort @pragma;
 
-print OUT $_ for (sort @pragma);
+print $out <<'=cut';
 
-print OUT <<EOF;
 =back
 
 =head2 Standard Modules
@@ -155,11 +187,12 @@ don't have the gdbm library.
 
 =over 12
 
-EOF
+=cut
 
-print OUT $_ for (sort @mod);
+print $out $_ for sort @mod;
+
+print $out <<'=cut', "=cut\n";
 
-print OUT <<'EOF';
 =back
 
 To find out I<all> modules installed on your system, including
@@ -197,7 +230,7 @@ completely) due to their sizes, volatility, or simply lack of time
 for adequate testing and configuration across the multitude of
 platforms on which Perl was beta-tested.  You are encouraged to
 look for them on CPAN (described below), or using web search engines
-like Alta Vista or Google.
+like Google or DuckDuckGo.
 
 =head1 CPAN
 
@@ -299,7 +332,7 @@ Miscellaneous Modules
 
 =back
 
-The list of the registered CPAN sites as of this writing follows.
+The list of the registered CPAN sites follows.
 Please note that the sorting order is alphabetical on fields:
 
 Continent
@@ -315,7 +348,10 @@ Continent
 and thus the North American servers happen to be listed between the
 European and the South American sites.
 
-You should try to choose one close to you.
+Registered CPAN sites
+
+=for maintainers
+Generated by Porting/make_modlib_cpan.pl
 
 =head2 Africa
 
@@ -323,11 +359,23 @@ You should try to choose one close to you.
 
 =item South Africa
 
-                      http://ftp.rucus.ru.ac.za/pub/perl/CPAN/
-                      ftp://ftp.rucus.ru.ac.za/pub/perl/CPAN/
-                      ftp://ftp.is.co.za/programming/perl/CPAN/
-                      ftp://ftp.saix.net/pub/CPAN/
-                      ftp://ftp.sun.ac.za/CPAN/CPAN/
+  http://mirror.is.co.za/pub/cpan/
+  ftp://ftp.is.co.za/pub/cpan/
+  http://cpan.mirror.ac.za/
+  ftp://cpan.mirror.ac.za/
+  http://cpan.saix.net/
+  ftp://ftp.saix.net/pub/CPAN/
+  http://ftp.wa.co.za/pub/CPAN/
+  ftp://ftp.wa.co.za/pub/CPAN/
+
+=item Uganda
+
+  http://mirror.ucu.ac.ug/cpan/
+
+=item Zimbabwe
+
+  http://mirror.zol.co.zw/CPAN/
+  ftp://mirror.zol.co.zw/CPAN/
 
 =back
 
@@ -335,94 +383,123 @@ You should try to choose one close to you.
 
 =over 4
 
+=item Bangladesh
+
+  http://mirror.dhakacom.com/CPAN/
+  ftp://mirror.dhakacom.com/CPAN/
+
 =item China
 
-                      http://cpan.linuxforum.net/
-                      http://cpan.shellhung.org/
-                      ftp://ftp.shellhung.org/pub/CPAN
-                      ftp://mirrors.hknet.com/CPAN
+  http://cpan.communilink.net/
+  http://ftp.cuhk.edu.hk/pub/packages/perl/CPAN/
+  ftp://ftp.cuhk.edu.hk/pub/packages/perl/CPAN/
+  http://mirrors.hust.edu.cn/CPAN/
+  http://mirrors.neusoft.edu.cn/cpan/
+  http://mirror.lzu.edu.cn/CPAN/
+  http://mirrors.163.com/cpan/
+  http://mirrors.sohu.com/CPAN/
+  http://mirrors.ustc.edu.cn/CPAN/
+  ftp://mirrors.ustc.edu.cn/CPAN/
+  http://mirrors.xmu.edu.cn/CPAN/
+  ftp://mirrors.xmu.edu.cn/CPAN/
+  http://mirrors.zju.edu.cn/CPAN/
+
+=item India
+
+  http://cpan.excellmedia.net/
+  http://perlmirror.indialinks.com/
 
 =item Indonesia
 
-                      http://mirrors.tf.itb.ac.id/cpan/
-                      http://cpan.cbn.net.id/
-                      ftp://ftp.cbn.net.id/mirror/CPAN
+  http://kambing.ui.ac.id/cpan/
+  http://cpan.pesat.net.id/
+  http://mirror.poliwangi.ac.id/CPAN/
+  http://kartolo.sby.datautama.net.id/CPAN/
+  http://mirror.wanxp.id/cpan/
+
+=item Iran
+
+  http://mirror.yazd.ac.ir/cpan/
 
 =item Israel
 
-                      ftp://ftp.iglu.org.il/pub/CPAN/
-                      http://cpan.lerner.co.il/
-                      http://bioinfo.weizmann.ac.il/pub/software/perl/CPAN/
-                      ftp://bioinfo.weizmann.ac.il/pub/software/perl/CPAN/
+  http://biocourse.weizmann.ac.il/CPAN/
 
 =item Japan
 
-                      ftp://ftp.u-aizu.ac.jp/pub/CPAN
-                      ftp://ftp.kddlabs.co.jp/CPAN/
-                      ftp://ftp.ayamura.org/pub/CPAN/
-                      ftp://ftp.jaist.ac.jp/pub/lang/perl/CPAN/
-                      http://ftp.cpan.jp/
-                      ftp://ftp.cpan.jp/CPAN/
-                      ftp://ftp.dti.ad.jp/pub/lang/CPAN/
-                      ftp://ftp.ring.gr.jp/pub/lang/perl/CPAN/
+  http://ftp.jaist.ac.jp/pub/CPAN/
+  ftp://ftp.jaist.ac.jp/pub/CPAN/
+  http://mirror.jre655.com/CPAN/
+  ftp://mirror.jre655.com/CPAN/
+  ftp://ftp.kddilabs.jp/CPAN/
+  http://ftp.nara.wide.ad.jp/pub/CPAN/
+  ftp://ftp.nara.wide.ad.jp/pub/CPAN/
+  http://ftp.riken.jp/lang/CPAN/
+  ftp://ftp.riken.jp/lang/CPAN/
+  ftp://ftp.u-aizu.ac.jp/pub/CPAN/
+  http://ftp.yz.yamagata-u.ac.jp/pub/lang/cpan/
+  ftp://ftp.yz.yamagata-u.ac.jp/pub/lang/cpan/
 
-=item Malaysia
+=item Kazakhstan
 
-                      http://cpan.MyBSD.org.my
-                      http://mirror.leafbug.org/pub/CPAN
-                      http://ossig.mncc.com.my/mirror/pub/CPAN
+  http://mirror.neolabs.kz/CPAN/
+  ftp://mirror.neolabs.kz/CPAN/
 
-=item Russian Federation
+=item Philippines
 
-                      http://cpan.tomsk.ru
-                      ftp://cpan.tomsk.ru/
+  http://mirror.pregi.net/CPAN/
+  ftp://mirror.pregi.net/CPAN/
+  http://mirror.rise.ph/cpan/
+  ftp://mirror.rise.ph/cpan/
 
-=item Saudi Arabia
+=item Qatar
 
-                      ftp://ftp.isu.net.sa/pub/CPAN/
+  http://mirror.qnren.qa/CPAN/
+  ftp://mirror.qnren.qa/CPAN/
 
-=item Singapore
+=item Republic of Korea
 
-                      http://CPAN.en.com.sg/
-                      ftp://cpan.en.com.sg/
-                      http://mirror.averse.net/pub/CPAN
-                      ftp://mirror.averse.net/pub/CPAN
-                      http://cpan.oss.eznetsols.org
-                      ftp://ftp.oss.eznetsols.org/cpan
+  http://cpan.mirror.cdnetworks.com/
+  ftp://cpan.mirror.cdnetworks.com/CPAN/
+  http://ftp.kaist.ac.kr/pub/CPAN/
+  ftp://ftp.kaist.ac.kr/CPAN/
+  http://ftp.kr.freebsd.org/pub/CPAN/
+  ftp://ftp.kr.freebsd.org/pub/CPAN/
+  http://mirror.navercorp.com/CPAN/
+  http://ftp.neowiz.com/CPAN/
+  ftp://ftp.neowiz.com/CPAN/
 
-=item South Korea
+=item Singapore
 
-                      http://CPAN.bora.net/
-                      ftp://ftp.bora.net/pub/CPAN/
-                      http://mirror.kr.FreeBSD.org/CPAN
-                      ftp://ftp.kr.FreeBSD.org/pub/CPAN
+  http://cpan.mirror.choon.net/
+  http://mirror.0x.sg/CPAN/
+  ftp://mirror.0x.sg/CPAN/
 
 =item Taiwan
 
-                      ftp://ftp.nctu.edu.tw/UNIX/perl/CPAN
-                      http://cpan.cdpa.nsysu.edu.tw/
-                      ftp://cpan.cdpa.nsysu.edu.tw/pub/CPAN
-                      http://ftp.isu.edu.tw/pub/CPAN
-                      ftp://ftp.isu.edu.tw/pub/CPAN
-                      ftp://ftp1.sinica.edu.tw/pub1/perl/CPAN/
-                      http://ftp.tku.edu.tw/pub/CPAN/
-                      ftp://ftp.tku.edu.tw/pub/CPAN/
-
-=item Thailand
+  http://cpan.cdpa.nsysu.edu.tw/Unix/Lang/CPAN/
+  ftp://cpan.cdpa.nsysu.edu.tw/Unix/Lang/CPAN/
+  http://cpan.stu.edu.tw/
+  ftp://ftp.stu.edu.tw/CPAN/
+  http://ftp.yzu.edu.tw/CPAN/
+  ftp://ftp.yzu.edu.tw/CPAN/
+  http://cpan.nctu.edu.tw/
+  ftp://cpan.nctu.edu.tw/
+  http://ftp.ubuntu-tw.org/mirror/CPAN/
+  ftp://ftp.ubuntu-tw.org/mirror/CPAN/
 
-                      ftp://ftp.loxinfo.co.th/pub/cpan/
-                      ftp://ftp.cs.riubon.ac.th/pub/mirrors/CPAN/
-
-=back
-
-=head2 Central America
+=item Turkey
 
-=over 4
+  http://cpan.ulak.net.tr/
+  ftp://ftp.ulak.net.tr/pub/perl/CPAN/
+  http://mirror.vit.com.tr/mirror/CPAN/
+  ftp://mirror.vit.com.tr/CPAN/
 
-=item Costa Rica
+=item Viet Nam
 
-                      http://ftp.ucr.ac.cr/Unix/CPAN/
-                      ftp://ftp.ucr.ac.cr/pub/Unix/CPAN/
+  http://mirrors.digipower.vn/CPAN/
+  http://mirror.downloadvn.com/cpan/
+  http://mirrors.vinahost.vn/CPAN/
 
 =back
 
@@ -432,268 +509,278 @@ You should try to choose one close to you.
 
 =item Austria
 
-                      http://cpan.inode.at/
-                      ftp://cpan.inode.at
-                      ftp://ftp.tuwien.ac.at/pub/CPAN/
+  http://cpan.inode.at/
+  ftp://cpan.inode.at/
+  http://mirror.easyname.at/cpan/
+  ftp://mirror.easyname.at/cpan/
+  http://gd.tuwien.ac.at/languages/perl/CPAN/
+  ftp://gd.tuwien.ac.at/pub/CPAN/
+
+=item Belarus
+
+  http://ftp.byfly.by/pub/CPAN/
+  ftp://ftp.byfly.by/pub/CPAN/
+  http://mirror.datacenter.by/pub/CPAN/
+  ftp://mirror.datacenter.by/pub/CPAN/
 
 =item Belgium
 
-                      http://ftp.easynet.be/pub/CPAN/
-                      ftp://ftp.easynet.be/pub/CPAN/
-                      http://cpan.skynet.be
-                      ftp://ftp.cpan.skynet.be/pub/CPAN
-                      ftp://ftp.kulnet.kuleuven.ac.be/pub/mirror/CPAN/
+  http://ftp.belnet.be/ftp.cpan.org/
+  ftp://ftp.belnet.be/mirror/ftp.cpan.org/
+  http://cpan.cu.be/
+  http://lib.ugent.be/CPAN/
+  http://cpan.weepeetelecom.be/
 
 =item Bosnia and Herzegovina
 
-                      http://cpan.blic.net/
+  http://cpan.mirror.ba/
+  ftp://ftp.mirror.ba/CPAN/
 
 =item Bulgaria
 
-                      http://cpan.online.bg
-                      ftp://cpan.online.bg/cpan
-                      http://cpan.zadnik.org
-                      ftp://ftp.zadnik.org/mirrors/CPAN/
-                      http://cpan.lirex.net/
-                      ftp://ftp.lirex.net/pub/mirrors/CPAN
+  http://mirrors.neterra.net/CPAN/
+  ftp://mirrors.neterra.net/CPAN/
+  http://mirrors.netix.net/CPAN/
+  ftp://mirrors.netix.net/CPAN/
 
 =item Croatia
 
-                      http://ftp.linux.hr/pub/CPAN/
-                      ftp://ftp.linux.hr/pub/CPAN/
+  http://ftp.carnet.hr/pub/CPAN/
+  ftp://ftp.carnet.hr/pub/CPAN/
 
 =item Czech Republic
 
-                      ftp://ftp.fi.muni.cz/pub/CPAN/
-                      ftp://sunsite.mff.cuni.cz/MIRRORS/ftp.funet.fi/pub/languages/perl/CPAN/
+  http://mirror.dkm.cz/cpan/
+  ftp://mirror.dkm.cz/cpan/
+  ftp://ftp.fi.muni.cz/pub/CPAN/
+  http://mirrors.nic.cz/CPAN/
+  ftp://mirrors.nic.cz/pub/CPAN/
+  http://cpan.mirror.vutbr.cz/
+  ftp://mirror.vutbr.cz/cpan/
 
 =item Denmark
 
-                      http://mirrors.sunsite.dk/cpan/
-                      ftp://sunsite.dk/mirrors/cpan/
-                      http://cpan.cybercity.dk
-                      http://www.cpan.dk/CPAN/
-                      ftp://www.cpan.dk/ftp.cpan.org/CPAN/
-
-=item Estonia
-
-                      ftp://ftp.ut.ee/pub/languages/perl/CPAN/
+  http://www.cpan.dk/
+  http://mirrors.dotsrc.org/cpan/
+  ftp://mirrors.dotsrc.org/cpan/
 
 =item Finland
 
-                      ftp://ftp.funet.fi/pub/languages/perl/CPAN/
-                      http://mirror.eunet.fi/CPAN
+  ftp://ftp.funet.fi/pub/languages/perl/CPAN/
 
 =item France
 
-                      http://www.enstimac.fr/Perl/CPAN
-                      http://ftp.u-paris10.fr/perl/CPAN
-                      ftp://ftp.u-paris10.fr/perl/CPAN
-                      http://cpan.mirrors.easynet.fr/
-                      ftp://cpan.mirrors.easynet.fr/pub/ftp.cpan.org/
-                      ftp://ftp.club-internet.fr/pub/perl/CPAN/
-                      http://fr.cpan.org/
-                      ftp://ftp.lip6.fr/pub/perl/CPAN/
-                      ftp://ftp.oleane.net/pub/mirrors/CPAN/
-                      ftp://ftp.pasteur.fr/pub/computing/CPAN/
-                      http://mir2.ovh.net/ftp.cpan.org
-                      ftp://mir1.ovh.net/ftp.cpan.org
-                      http://ftp.crihan.fr/mirrors/ftp.cpan.org/
-                      ftp://ftp.crihan.fr/mirrors/ftp.cpan.org/
-                      http://ftp.u-strasbg.fr/CPAN
-                      ftp://ftp.u-strasbg.fr/CPAN
-                      ftp://cpan.cict.fr/pub/CPAN/
-                      ftp://ftp.uvsq.fr/pub/perl/CPAN/
+  http://ftp.ciril.fr/pub/cpan/
+  ftp://ftp.ciril.fr/pub/cpan/
+  http://distrib-coffee.ipsl.jussieu.fr/pub/mirrors/cpan/
+  ftp://distrib-coffee.ipsl.jussieu.fr/pub/mirrors/cpan/
+  http://ftp.lip6.fr/pub/perl/CPAN/
+  ftp://ftp.lip6.fr/pub/perl/CPAN/
+  http://mirror.ibcp.fr/pub/CPAN/
+  ftp://ftp.oleane.net/pub/CPAN/
+  http://cpan.mirrors.ovh.net/ftp.cpan.org/
+  ftp://cpan.mirrors.ovh.net/ftp.cpan.org/
+  http://cpan.enstimac.fr/
 
 =item Germany
 
-                      ftp://ftp.rub.de/pub/CPAN/
-                      ftp://ftp.freenet.de/pub/ftp.cpan.org/pub/CPAN/
-                      ftp://ftp.uni-erlangen.de/pub/source/CPAN/
-                      ftp://ftp-stud.fht-esslingen.de/pub/Mirrors/CPAN
-                      http://pandemonium.tiscali.de/pub/CPAN/
-                      ftp://pandemonium.tiscali.de/pub/CPAN/
-                      http://ftp.gwdg.de/pub/languages/perl/CPAN/
-                      ftp://ftp.gwdg.de/pub/languages/perl/CPAN/
-                      ftp://ftp.uni-hamburg.de/pub/soft/lang/perl/CPAN/
-                      ftp://ftp.leo.org/pub/CPAN/
-                      http://cpan.noris.de/
-                      ftp://cpan.noris.de/pub/CPAN/
-                      ftp://ftp.mpi-sb.mpg.de/pub/perl/CPAN/
-                      ftp://ftp.gmd.de/mirrors/CPAN/
+  http://mirror.23media.de/cpan/
+  ftp://mirror.23media.de/cpan/
+  http://artfiles.org/cpan.org/
+  ftp://artfiles.org/cpan.org/
+  http://mirror.bibleonline.ru/cpan/
+  http://mirror.checkdomain.de/CPAN/
+  ftp://mirror.checkdomain.de/CPAN/
+  http://cpan.noris.de/
+  http://mirror.de.leaseweb.net/CPAN/
+  ftp://mirror.de.leaseweb.net/CPAN/
+  http://cpan.mirror.euserv.net/
+  ftp://mirror.euserv.net/cpan/
+  http://ftp-stud.hs-esslingen.de/pub/Mirrors/CPAN/
+  ftp://mirror.fraunhofer.de/CPAN/
+  ftp://ftp.freenet.de/pub/ftp.cpan.org/pub/CPAN/
+  http://ftp.hosteurope.de/pub/CPAN/
+  ftp://ftp.hosteurope.de/pub/CPAN/
+  ftp://ftp.fu-berlin.de/unix/languages/perl/
+  http://ftp.gwdg.de/pub/languages/perl/CPAN/
+  ftp://ftp.gwdg.de/pub/languages/perl/CPAN/
+  http://ftp.hawo.stw.uni-erlangen.de/CPAN/
+  ftp://ftp.hawo.stw.uni-erlangen.de/CPAN/
+  http://cpan.mirror.iphh.net/
+  ftp://cpan.mirror.iphh.net/pub/CPAN/
+  ftp://ftp.mpi-inf.mpg.de/pub/perl/CPAN/
+  http://cpan.netbet.org/
+  http://mirror.netcologne.de/cpan/
+  ftp://mirror.netcologne.de/cpan/
+  ftp://mirror.petamem.com/CPAN/
+  http://www.planet-elektronik.de/CPAN/
+  http://ftp.halifax.rwth-aachen.de/cpan/
+  ftp://ftp.halifax.rwth-aachen.de/cpan/
+  http://mirror.softaculous.com/cpan/
+  http://ftp.u-tx.net/CPAN/
+  ftp://ftp.u-tx.net/CPAN/
+  http://mirror.reismil.ch/CPAN/
 
 =item Greece
 
-                      ftp://ftp.acn.gr/pub/lang/perl
-                      ftp://ftp.forthnet.gr/pub/languages/perl/CPAN
-                      ftp://ftp.ntua.gr/pub/lang/perl/
+  http://cpan.cc.uoc.gr/mirrors/CPAN/
+  ftp://ftp.cc.uoc.gr/mirrors/CPAN/
+  http://ftp.ntua.gr/pub/lang/perl/
+  ftp://ftp.ntua.gr/pub/lang/perl/
 
 =item Hungary
 
-                      http://ftp.kfki.hu/packages/perl/CPAN/
-                      ftp://ftp.kfki.hu/pub/packages/perl/CPAN/
-
-=item Iceland
-
-                      http://ftp.rhnet.is/pub/CPAN/
-                      ftp://ftp.rhnet.is/pub/CPAN/
+  http://mirror.met.hu/CPAN/
 
 =item Ireland
 
-                      http://cpan.indigo.ie/
-                      ftp://cpan.indigo.ie/pub/CPAN/
-                      http://ftp.heanet.ie/mirrors/ftp.perl.org/pub/CPAN
-                      ftp://ftp.heanet.ie/mirrors/ftp.perl.org/pub/CPAN
-                      http://sunsite.compapp.dcu.ie/pub/perl/
-                      ftp://sunsite.compapp.dcu.ie/pub/perl/
+  http://ftp.heanet.ie/mirrors/ftp.perl.org/pub/CPAN/
+  ftp://ftp.heanet.ie/mirrors/ftp.perl.org/pub/CPAN/
 
 =item Italy
 
-                      http://cpan.nettuno.it/
-                      http://gusp.dyndns.org/CPAN/
-                      ftp://gusp.dyndns.org/pub/CPAN
-                      http://softcity.iol.it/cpan
-                      ftp://softcity.iol.it/pub/cpan
-                      ftp://ftp.unina.it/pub/Other/CPAN/CPAN/
-                      ftp://ftp.unipi.it/pub/mirror/perl/CPAN/
-                      ftp://cis.uniRoma2.it/CPAN/
-                      ftp://ftp.edisontel.it/pub/CPAN_Mirror/
-                      http://cpan.flashnet.it/
-                      ftp://ftp.flashnet.it/pub/CPAN/
+  http://bo.mirror.garr.it/mirrors/CPAN/
+  ftp://ftp.eutelia.it/CPAN_Mirror/
+  http://cpan.panu.it/
+  ftp://ftp.panu.it/pub/mirrors/perl/CPAN/
+  http://cpan.muzzy.it/
 
 =item Latvia
 
-                      http://kvin.lv/pub/CPAN/
+  http://kvin.lv/pub/CPAN/
 
 =item Lithuania
 
-                      ftp://ftp.unix.lt/pub/CPAN/
+  http://ftp.litnet.lt/pub/CPAN/
+  ftp://ftp.litnet.lt/pub/CPAN/
+
+=item Moldova
+
+  http://mirror.as43289.net/pub/CPAN/
+  ftp://mirror.as43289.net/pub/CPAN/
 
 =item Netherlands
 
-                      ftp://download.xs4all.nl/pub/mirror/CPAN/
-                      ftp://ftp.nl.uu.net/pub/CPAN/
-                      ftp://ftp.nluug.nl/pub/languages/perl/CPAN/
-                      http://cpan.cybercomm.nl/
-                      ftp://mirror.cybercomm.nl/pub/CPAN
-                      ftp://mirror.vuurwerk.nl/pub/CPAN/
-                      ftp://ftp.cpan.nl/pub/CPAN/
-                      http://ftp.easynet.nl/mirror/CPAN
-                      ftp://ftp.easynet.nl/mirror/CPAN
-                      http://archive.cs.uu.nl/mirror/CPAN/
-                      ftp://ftp.cs.uu.nl/mirror/CPAN/
+  http://cpan.cs.uu.nl/
+  ftp://ftp.cs.uu.nl/pub/CPAN/
+  http://mirror.nl.leaseweb.net/CPAN/
+  ftp://mirror.nl.leaseweb.net/CPAN/
+  http://ftp.nluug.nl/languages/perl/CPAN/
+  ftp://ftp.nluug.nl/pub/languages/perl/CPAN/
+  http://mirror.transip.net/CPAN/
+  ftp://mirror.transip.net/CPAN/
+  http://cpan.mirror.triple-it.nl/
+  http://ftp.tudelft.nl/cpan/
+  ftp://ftp.tudelft.nl/pub/CPAN/
+  ftp://download.xs4all.nl/pub/mirror/CPAN/
 
 =item Norway
 
-                      ftp://ftp.uninett.no/pub/languages/perl/CPAN
-                      ftp://ftp.uit.no/pub/languages/perl/cpan/
+  http://cpan.uib.no/
+  ftp://cpan.uib.no/pub/CPAN/
+  ftp://ftp.uninett.no/pub/languages/perl/CPAN/
+  http://cpan.vianett.no/
 
 =item Poland
 
-                      ftp://ftp.mega.net.pl/CPAN
-                      ftp://ftp.man.torun.pl/pub/doc/CPAN/
-                      ftp://sunsite.icm.edu.pl/pub/CPAN/
+  http://ftp.agh.edu.pl/CPAN/
+  ftp://ftp.agh.edu.pl/CPAN/
+  http://ftp.piotrkosoft.net/pub/mirrors/CPAN/
+  ftp://ftp.piotrkosoft.net/pub/mirrors/CPAN/
+  ftp://ftp.ps.pl/pub/CPAN/
+  http://sunsite.icm.edu.pl/pub/CPAN/
+  ftp://sunsite.icm.edu.pl/pub/CPAN/
 
 =item Portugal
 
-                      ftp://ftp.ua.pt/pub/CPAN/
-                      ftp://perl.di.uminho.pt/pub/CPAN/
-                      http://cpan.dei.uc.pt/
-                      ftp://ftp.dei.uc.pt/pub/CPAN
-                      ftp://ftp.nfsi.pt/pub/CPAN
-                      http://ftp.linux.pt/pub/mirrors/CPAN
-                      ftp://ftp.linux.pt/pub/mirrors/CPAN
-                      http://cpan.ip.pt/
-                      ftp://cpan.ip.pt/pub/cpan/
-                      http://cpan.telepac.pt/
-                      ftp://ftp.telepac.pt/pub/cpan/
+  http://cpan.dcc.fc.up.pt/
+  http://mirrors.fe.up.pt/pub/CPAN/
+  http://cpan.perl-hackers.net/
+  http://cpan.perl.pt/
 
 =item Romania
 
-                      ftp://ftp.bio-net.ro/pub/CPAN
-                      ftp://ftp.kappa.ro/pub/mirrors/ftp.perl.org/pub/CPAN/
-                      ftp://ftp.lug.ro/CPAN
-                      ftp://ftp.roedu.net/pub/CPAN/
-                      ftp://ftp.dntis.ro/pub/cpan/
-                      ftp://ftp.iasi.roedu.net/pub/mirrors/ftp.cpan.org/
-                      http://cpan.ambra.ro/
-                      ftp://ftp.ambra.ro/pub/CPAN
-                      ftp://ftp.dnttm.ro/pub/CPAN/
-                      ftp://ftp.lasting.ro/pub/CPAN
-                      ftp://ftp.timisoara.roedu.net/mirrors/CPAN/
-
-=item Russia
-
-                      ftp://ftp.chg.ru/pub/lang/perl/CPAN/
-                      http://cpan.rinet.ru/
-                      ftp://cpan.rinet.ru/pub/mirror/CPAN/
-                      ftp://ftp.aha.ru/pub/CPAN/
-                      ftp://ftp.corbina.ru/pub/CPAN/
-                      http://cpan.sai.msu.ru/
-                      ftp://ftp.sai.msu.su/pub/lang/perl/CPAN/
+  http://mirrors.hostingromania.ro/cpan.org/
+  ftp://ftp.lug.ro/CPAN/
+  http://mirrors.m247.ro/CPAN/
+  http://mirrors.evowise.com/CPAN/
+  http://mirrors.teentelecom.net/CPAN/
+  ftp://mirrors.teentelecom.net/CPAN/
+  http://mirrors.xservers.ro/CPAN/
+
+=item Russian Federation
+
+  ftp://ftp.aha.ru/CPAN/
+  http://cpan.rinet.ru/
+  ftp://cpan.rinet.ru/pub/mirror/CPAN/
+  http://cpan-mirror.rbc.ru/pub/CPAN/
+  http://mirror.rol.ru/CPAN/
+  http://cpan.uni-altai.ru/
+  http://cpan.webdesk.ru/
+  ftp://cpan.webdesk.ru/cpan/
+  http://mirror.yandex.ru/mirrors/cpan/
+  ftp://mirror.yandex.ru/mirrors/cpan/
+
+=item Serbia
+
+  http://mirror.sbb.rs/CPAN/
+  ftp://mirror.sbb.rs/CPAN/
 
 =item Slovakia
 
-                      ftp://ftp.cvt.stuba.sk/pub/CPAN/
+  http://cpan.lnx.sk/
+  http://tux.rainside.sk/CPAN/
+  ftp://tux.rainside.sk/CPAN/
 
 =item Slovenia
 
-                      ftp://ftp.arnes.si/software/perl/CPAN/
+  http://ftp.arnes.si/software/perl/CPAN/
+  ftp://ftp.arnes.si/software/perl/CPAN/
 
 =item Spain
 
-                      http://cpan.imasd.elmundo.es/
-                      ftp://ftp.rediris.es/mirror/CPAN/
-                      ftp://ftp.ri.telefonica-data.net/CPAN
-                      ftp://ftp.etse.urv.es/pub/perl/
+  http://mirrors.evowise.com/CPAN/
+  http://osl.ugr.es/CPAN/
+  http://ftp.rediris.es/mirror/CPAN/
+  ftp://ftp.rediris.es/mirror/CPAN/
 
 =item Sweden
 
-                      http://ftp.du.se/CPAN/
-                      ftp://ftp.du.se/pub/CPAN/
-                      http://mirror.dataphone.se/CPAN
-                      ftp://mirror.dataphone.se/pub/CPAN
-                      ftp://ftp.sunet.se/pub/lang/perl/CPAN/
+  http://ftp.acc.umu.se/mirror/CPAN/
+  ftp://ftp.acc.umu.se/mirror/CPAN/
 
 =item Switzerland
 
-                      http://cpan.mirror.solnet.ch/
-                      ftp://ftp.solnet.ch/mirror/CPAN/
-                      ftp://ftp.danyk.ch/CPAN/
-                      ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
-
-=item Turkey
-
-                      http://ftp.ulak.net.tr/perl/CPAN/
-                      ftp://ftp.ulak.net.tr/perl/CPAN
-                      ftp://sunsite.bilkent.edu.tr/pub/languages/CPAN/
+  http://www.pirbot.com/mirrors/cpan/
+  http://mirror.switch.ch/ftp/mirror/CPAN/
+  ftp://mirror.switch.ch/mirror/CPAN/
 
 =item Ukraine
 
-                      http://cpan.org.ua/
-                      ftp://cpan.org.ua/
-                      ftp://ftp.perl.org.ua/pub/CPAN/
-                      http://no-more.kiev.ua/CPAN/
-                      ftp://no-more.kiev.ua/pub/CPAN/
+  http://cpan.ip-connect.vn.ua/
+  ftp://cpan.ip-connect.vn.ua/mirror/cpan/
 
 =item United Kingdom
 
-                      http://www.mirror.ac.uk/sites/ftp.funet.fi/pub/languages/perl/CPAN
-                      ftp://ftp.mirror.ac.uk/sites/ftp.funet.fi/pub/languages/perl/CPAN/
-                      http://cpan.teleglobe.net/
-                      ftp://cpan.teleglobe.net/pub/CPAN
-                      http://cpan.mirror.anlx.net/
-                      ftp://ftp.mirror.anlx.net/CPAN/
-                      http://cpan.etla.org/
-                      ftp://cpan.etla.org/pub/CPAN
-                      ftp://ftp.demon.co.uk/pub/CPAN/
-                      http://cpan.m.flirble.org/
-                      ftp://ftp.flirble.org/pub/languages/perl/CPAN/
-                      ftp://ftp.plig.org/pub/CPAN/
-                      http://cpan.hambule.co.uk/
-                      http://cpan.mirrors.clockerz.net/
-                      ftp://ftp.clockerz.net/pub/CPAN/
-                      ftp://usit.shef.ac.uk/pub/packages/CPAN/
+  http://cpan.mirror.anlx.net/
+  ftp://ftp.mirror.anlx.net/CPAN/
+  http://mirror.bytemark.co.uk/CPAN/
+  ftp://mirror.bytemark.co.uk/CPAN/
+  http://mirrors.coreix.net/CPAN/
+  http://cpan.etla.org/
+  ftp://cpan.etla.org/pub/CPAN/
+  http://cpan.cpantesters.org/
+  http://mirror.sax.uk.as61049.net/CPAN/
+  http://mirror.sov.uk.goscomb.net/CPAN/
+  http://www.mirrorservice.org/sites/cpan.perl.org/CPAN/
+  ftp://ftp.mirrorservice.org/sites/cpan.perl.org/CPAN/
+  http://mirror.ox.ac.uk/sites/www.cpan.org/
+  ftp://mirror.ox.ac.uk/sites/www.cpan.org/
+  http://ftp.ticklers.org/pub/CPAN/
+  ftp://ftp.ticklers.org/pub/CPAN/
+  http://cpan.mirrors.uk2.net/
+  ftp://mirrors.uk2.net/pub/CPAN/
+  http://mirror.ukhost4u.com/CPAN/
 
 =back
 
@@ -703,36 +790,23 @@ You should try to choose one close to you.
 
 =item Canada
 
-=over 8
-
-=item Alberta
-
-                      http://cpan.sunsite.ualberta.ca/
-                      ftp://cpan.sunsite.ualberta.ca/pub/CPAN/
-
-=item Manitoba
-
-                      http://theoryx5.uwinnipeg.ca/pub/CPAN/
-                      ftp://theoryx5.uwinnipeg.ca/pub/CPAN/
-
-=item Nova Scotia
-
-                      ftp://cpan.chebucto.ns.ca/pub/CPAN/
-
-=item Ontario
+  http://CPAN.mirror.rafal.ca/
+  ftp://CPAN.mirror.rafal.ca/pub/CPAN/
+  http://mirror.csclub.uwaterloo.ca/CPAN/
+  ftp://mirror.csclub.uwaterloo.ca/CPAN/
+  http://mirrors.gossamer-threads.com/CPAN/
+  http://mirror.its.dal.ca/cpan/
+  ftp://mirror.its.dal.ca/cpan/
+  ftp://ftp.ottix.net/pub/CPAN/
 
-                      ftp://ftp.nrc.ca/pub/CPAN/
+=item Costa Rica
 
-=back
+  http://mirrors.ucr.ac.cr/CPAN/
 
 =item Mexico
 
-                      http://cpan.azc.uam.mx
-                      ftp://cpan.azc.uam.mx/mirrors/CPAN
-                      http://www.cpan.unam.mx/
-                      ftp://ftp.unam.mx/pub/CPAN
-                      http://www.msg.com.mx/CPAN/
-                      ftp://ftp.msg.com.mx/pub/CPAN/
+  http://www.msg.com.mx/CPAN/
+  ftp://ftp.msg.com.mx/pub/CPAN/
 
 =item United States
 
@@ -740,166 +814,134 @@ You should try to choose one close to you.
 
 =item Alabama
 
-                      http://mirror.hiwaay.net/CPAN/
-                      ftp://mirror.hiwaay.net/CPAN/
-
-=item California
-
-                      http://cpan.develooper.com/
-                      http://www.cpan.org/
-                      ftp://cpan.valueclick.com/pub/CPAN/
-                      http://www.mednor.net/ftp/pub/mirrors/CPAN/
-                      ftp://ftp.mednor.net/pub/mirrors/CPAN/
-                      http://mirrors.gossamer-threads.com/CPAN
-                      ftp://cpan.nas.nasa.gov/pub/perl/CPAN/
-                      http://mirrors.kernel.org/cpan/
-                      ftp://mirrors.kernel.org/pub/CPAN
-                      http://cpan-sj.viaverio.com/
-                      ftp://cpan-sj.viaverio.com/pub/CPAN/
-                      http://cpan.digisle.net/
-                      ftp://cpan.digisle.net/pub/CPAN
-                      http://www.perl.com/CPAN/
-                      http://www.uberlan.net/CPAN
+  http://mirror.teklinks.com/CPAN/
 
-=item Colorado
+=item Arizona
 
-                      ftp://ftp.cs.colorado.edu/pub/perl/CPAN/
-                      http://cpan.four10.com
+  http://mirror.n5tech.com/CPAN/
+  http://mirrors.namecheap.com/CPAN/
+  ftp://mirrors.namecheap.com/CPAN/
 
-=item Delaware
+=item California
 
-                      http://ftp.lug.udel.edu/pub/CPAN
-                      ftp://ftp.lug.udel.edu/pub/CPAN
+  http://cpan.develooper.com/
+  http://httpupdate127.cpanel.net/CPAN/
+  http://mirrors.sonic.net/cpan/
+  ftp://mirrors.sonic.net/cpan/
+  http://www.perl.com/CPAN/
+  http://cpan.yimg.com/
 
-=item District of Columbia
+=item Idaho
 
-                      ftp://ftp.dc.aleron.net/pub/CPAN/
+  http://mirrors.syringanetworks.net/CPAN/
+  ftp://mirrors.syringanetworks.net/CPAN/
 
-=item Florida
+=item Illinois
 
-                      ftp://ftp.cise.ufl.edu/pub/mirrors/CPAN/
-                      http://mirror.csit.fsu.edu/pub/CPAN/
-                      ftp://mirror.csit.fsu.edu/pub/CPAN/
-                      http://cpan.mirrors.nks.net/
+  http://cpan.mirrors.hoobly.com/
+  http://mirror.team-cymru.org/CPAN/
+  ftp://mirror.team-cymru.org/CPAN/
 
 =item Indiana
 
-                      ftp://ftp.uwsg.iu.edu/pub/perl/CPAN/
-                      http://cpan.netnitco.net/
-                      ftp://cpan.netnitco.net/pub/mirrors/CPAN/
-                      http://archive.progeny.com/CPAN/
-                      ftp://archive.progeny.com/CPAN/
-                      http://fx.saintjoe.edu/pub/CPAN
-                      ftp://ftp.saintjoe.edu/pub/CPAN
-                      http://csociety-ftp.ecn.purdue.edu/pub/CPAN
-                      ftp://csociety-ftp.ecn.purdue.edu/pub/CPAN
+  http://cpan.netnitco.net/
+  ftp://cpan.netnitco.net/pub/mirrors/CPAN/
+  ftp://ftp.uwsg.iu.edu/pub/perl/CPAN/
 
-=item Kentucky
+=item Kansas
 
-                      http://cpan.uky.edu/
-                      ftp://cpan.uky.edu/pub/CPAN/
-                      http://slugsite.louisville.edu/cpan
-                      ftp://slugsite.louisville.edu/CPAN
+  http://mirrors.concertpass.com/cpan/
 
 =item Massachusetts
 
-                      http://mirrors.towardex.com/CPAN
-                      ftp://mirrors.towardex.com/pub/CPAN
-                      ftp://ftp.ccs.neu.edu/net/mirrors/ftp.funet.fi/pub/languages/perl/CPAN/
+  http://mirrors.ccs.neu.edu/CPAN/
 
 =item Michigan
 
-                      ftp://cpan.cse.msu.edu/
-                      http://cpan.calvin.edu/pub/CPAN
-                      ftp://cpan.calvin.edu/pub/CPAN
+  http://cpan.cse.msu.edu/
+  ftp://cpan.cse.msu.edu/
+  http://httpupdate118.cpanel.net/CPAN/
+  http://mirrors-usa.go-parts.com/cpan/
+  http://ftp.wayne.edu/CPAN/
+  ftp://ftp.wayne.edu/CPAN/
 
-=item Nevada
+=item New Hampshire
 
-                      http://www.oss.redundant.com/pub/CPAN
-                      ftp://www.oss.redundant.com/pub/CPAN
+  http://mirror.metrocast.net/cpan/
 
 =item New Jersey
 
-                      http://ftp.cpanel.net/pub/CPAN/
-                      ftp://ftp.cpanel.net/pub/CPAN/
-                      http://cpan.teleglobe.net/
-                      ftp://cpan.teleglobe.net/pub/CPAN
+  http://mirror.datapipe.net/CPAN/
+  ftp://mirror.datapipe.net/pub/CPAN/
+  http://www.hoovism.com/CPAN/
+  ftp://ftp.hoovism.com/CPAN/
+  http://cpan.mirror.nac.net/
 
 =item New York
 
-                      http://cpan.belfry.net/
-                      http://cpan.erlbaum.net/
-                      ftp://cpan.erlbaum.net/
-                      http://cpan.thepirtgroup.com/
-                      ftp://cpan.thepirtgroup.com/
-                      ftp://ftp.stealth.net/pub/CPAN/
-                      http://www.rge.com/pub/languages/perl/
-                      ftp://ftp.rge.com/pub/languages/perl/
+  http://mirror.cc.columbia.edu/pub/software/cpan/
+  ftp://mirror.cc.columbia.edu/pub/software/cpan/
+  http://cpan.belfry.net/
+  http://cpan.erlbaum.net/
+  ftp://cpan.erlbaum.net/CPAN/
+  http://cpan.hexten.net/
+  ftp://cpan.hexten.net/
+  http://mirror.nyi.net/CPAN/
+  ftp://mirror.nyi.net/pub/CPAN/
+  http://noodle.portalus.net/CPAN/
+  ftp://noodle.portalus.net/CPAN/
+  http://mirrors.rit.edu/CPAN/
+  ftp://mirrors.rit.edu/CPAN/
 
 =item North Carolina
 
-                      http://www.ibiblio.org/pub/languages/perl/CPAN
-                      ftp://ftp.ibiblio.org/pub/languages/perl/CPAN
-                      ftp://ftp.duke.edu/pub/perl/
-                      ftp://ftp.ncsu.edu/pub/mirror/CPAN/
-
-=item Oklahoma
-
-                      ftp://ftp.ou.edu/mirrors/CPAN/
+  http://httpupdate140.cpanel.net/CPAN/
+  http://mirrors.ibiblio.org/CPAN/
 
 =item Oregon
 
-                      ftp://ftp.orst.edu/pub/CPAN
+  http://ftp.osuosl.org/pub/CPAN/
+  ftp://ftp.osuosl.org/pub/CPAN/
+  http://mirror.uoregon.edu/CPAN/
 
 =item Pennsylvania
 
-                      http://ftp.epix.net/CPAN/
-                      ftp://ftp.epix.net/pub/languages/perl/
-                      http://mirrors.phenominet.com/pub/CPAN/
-                      ftp://mirrors.phenominet.com/pub/CPAN/
-                      http://cpan.pair.com/
-                      ftp://cpan.pair.com/pub/CPAN/
-                      ftp://carroll.cac.psu.edu/pub/CPAN/
+  http://cpan.pair.com/
+  ftp://cpan.pair.com/pub/CPAN/
+  http://cpan.mirrors.ionfish.org/
 
-=item Tennessee
+=item South Carolina
 
-                      ftp://ftp.sunsite.utk.edu/pub/CPAN/
+  http://cpan.mirror.clemson.edu/
 
 =item Texas
 
-                      http://ftp.sedl.org/pub/mirrors/CPAN/
-                      http://www.binarycode.org/cpan
-                      ftp://mirror.telentente.com/pub/CPAN
-                      http://mirrors.theonlinerecordstore.com/CPAN
+  http://mirror.uta.edu/CPAN/
 
 =item Utah
 
-                      ftp://mirror.xmission.com/CPAN/
+  http://cpan.cs.utah.edu/
+  ftp://cpan.cs.utah.edu/CPAN/
+  ftp://mirror.xmission.com/CPAN/
 
 =item Virginia
 
-                      http://cpan-du.viaverio.com/
-                      ftp://cpan-du.viaverio.com/pub/CPAN/
-                      http://mirrors.rcn.net/pub/lang/CPAN/
-                      ftp://mirrors.rcn.net/pub/lang/CPAN/
-                      http://perl.secsup.org/
-                      ftp://perl.secsup.org/pub/perl/
-                      http://noc.cvaix.com/mirrors/CPAN/
+  http://mirror.cogentco.com/pub/CPAN/
+  ftp://mirror.cogentco.com/pub/CPAN/
+  http://mirror.jmu.edu/pub/CPAN/
+  ftp://mirror.jmu.edu/pub/CPAN/
+  http://mirror.us.leaseweb.net/CPAN/
+  ftp://mirror.us.leaseweb.net/CPAN/
 
 =item Washington
 
-                      http://cpan.llarian.net/
-                      ftp://cpan.llarian.net/pub/CPAN/
-                      http://cpan.mirrorcentral.com/
-                      ftp://ftp.mirrorcentral.com/pub/CPAN/
-                      ftp://ftp-mirror.internap.com/pub/CPAN/
+  http://cpan.llarian.net/
+  ftp://cpan.llarian.net/pub/CPAN/
 
 =item Wisconsin
 
-                      http://mirror.sit.wisc.edu/pub/CPAN/
-                      ftp://mirror.sit.wisc.edu/pub/CPAN/
-                      http://mirror.aphix.com/CPAN
-                      ftp://mirror.aphix.com/pub/CPAN
+  http://cpan.mirrors.tds.net/
+  ftp://cpan.mirrors.tds.net/pub/CPAN/
 
 =back
 
@@ -911,20 +953,32 @@ You should try to choose one close to you.
 
 =item Australia
 
-                      http://ftp.planetmirror.com/pub/CPAN/
-                      ftp://ftp.planetmirror.com/pub/CPAN/
-                      ftp://mirror.aarnet.edu.au/pub/perl/CPAN/
-                      ftp://cpan.topend.com.au/pub/CPAN/
-                      http://cpan.mirrors.ilisys.com.au
+  http://mirror.as24220.net/pub/cpan/
+  ftp://mirror.as24220.net/pub/cpan/
+  http://cpan.mirrors.ilisys.com.au/
+  http://cpan.mirror.digitalpacific.com.au/
+  ftp://mirror.internode.on.net/pub/cpan/
+  http://mirror.optusnet.com.au/CPAN/
+  http://cpan.mirror.serversaustralia.com.au/
+  http://cpan.uberglobalmirror.com/
+  http://mirror.waia.asn.au/pub/cpan/
 
-=item New Zealand
+=item New Caledonia
 
-                      ftp://ftp.auckland.ac.nz/pub/perl/CPAN/
+  http://cpan.lagoon.nc/pub/CPAN/
+  ftp://cpan.lagoon.nc/pub/CPAN/
+  http://cpan.nautile.nc/CPAN/
+  ftp://cpan.nautile.nc/CPAN/
 
-=item United States
+=item New Zealand
 
-                      http://aniani.ifa.hawaii.edu/CPAN/
-                      ftp://aniani.ifa.hawaii.edu/CPAN/
+  ftp://ftp.auckland.ac.nz/pub/perl/CPAN/
+  http://cpan.catalyst.net.nz/CPAN/
+  ftp://cpan.catalyst.net.nz/pub/CPAN/
+  http://cpan.inspire.net.nz/
+  ftp://cpan.inspire.net.nz/cpan/
+  http://mirror.webtastix.net/CPAN/
+  ftp://mirror.webtastix.net/CPAN/
 
 =back
 
@@ -934,68 +988,117 @@ You should try to choose one close to you.
 
 =item Argentina
 
-                      ftp://mirrors.bannerlandia.com.ar/mirrors/CPAN/
-                      http://www.linux.org.ar/mirrors/cpan
-                      ftp://ftp.linux.org.ar/mirrors/cpan
+  http://cpan.mmgdesigns.com.ar/
 
 =item Brazil
 
-                      ftp://cpan.pop-mg.com.br/pub/CPAN/
-                      ftp://ftp.matrix.com.br/pub/perl/CPAN/
-                      http://cpan.hostsul.com.br/
-                      ftp://cpan.hostsul.com.br/
+  http://cpan.kinghost.net/
+  http://linorg.usp.br/CPAN/
+  http://mirror.nbtelecom.com.br/CPAN/
 
 =item Chile
 
-                      http://cpan.netglobalis.net/
-                      ftp://cpan.netglobalis.net/pub/CPAN/
+  http://cpan.dcc.uchile.cl/
+  ftp://cpan.dcc.uchile.cl/pub/lang/cpan/
 
 =back
 
 =head2 RSYNC Mirrors
 
-                      www.linux.org.ar::cpan
-                      theoryx5.uwinnipeg.ca::CPAN
-                      ftp.shellhung.org::CPAN
-                      rsync.nic.funet.fi::CPAN
-                      ftp.u-paris10.fr::CPAN
-                      mir1.ovh.net::CPAN
-                      rsync://ftp.crihan.fr::CPAN
-                      ftp.gwdg.de::FTP/languages/perl/CPAN/
-                      ftp.leo.org::CPAN
-                      ftp.cbn.net.id::CPAN
-                      rsync://ftp.heanet.ie/mirrors/ftp.perl.org/pub/CPAN
-                      ftp.iglu.org.il::CPAN
-                      gusp.dyndns.org::cpan
-                      ftp.kddlabs.co.jp::cpan
-                      ftp.ayamura.org::pub/CPAN/
-                      mirror.leafbug.org::CPAN
-                      rsync.en.com.sg::CPAN
-                      mirror.averse.net::cpan
-                      rsync.oss.eznetsols.org
-                      ftp.kr.FreeBSD.org::CPAN
-                      ftp.solnet.ch::CPAN
-                      cpan.cdpa.nsysu.edu.tw::CPAN
-                      cpan.teleglobe.net::CPAN
-                      rsync://rsync.mirror.anlx.net::CPAN
-                      ftp.sedl.org::cpan
-                      ibiblio.org::CPAN
-                      cpan-du.viaverio.com::CPAN
-                      aniani.ifa.hawaii.edu::CPAN
-                      archive.progeny.com::CPAN
-                      rsync://slugsite.louisville.edu::CPAN
-                      mirror.aphix.com::CPAN
-                      cpan.teleglobe.net::CPAN
-                      ftp.lug.udel.edu::cpan
-                      mirrors.kernel.org::mirrors/CPAN
-                      mirrors.phenominet.com::CPAN
-                      cpan.pair.com::CPAN
-                      cpan-sj.viaverio.com::CPAN
-                      mirror.csit.fsu.edu::CPAN
-                      csociety-ftp.ecn.purdue.edu::CPAN
+               rsync://ftp.is.co.za/IS-Mirror/ftp.cpan.org/
+               rsync://mirror.ac.za/CPAN/
+               rsync://mirror.zol.co.zw/CPAN/
+               rsync://mirror.dhakacom.com/CPAN/
+               rsync://mirrors.ustc.edu.cn/CPAN/
+               rsync://mirrors.xmu.edu.cn/CPAN/
+               rsync://kambing.ui.ac.id/CPAN/
+               rsync://ftp.jaist.ac.jp/pub/CPAN/
+               rsync://mirror.jre655.com/CPAN/
+               rsync://ftp.kddilabs.jp/cpan/
+               rsync://ftp.nara.wide.ad.jp/cpan/
+               rsync://ftp.riken.jp/cpan/
+               rsync://mirror.neolabs.kz/CPAN/
+               rsync://mirror.qnren.qa/CPAN/
+               rsync://ftp.neowiz.com/CPAN/
+               rsync://mirror.0x.sg/CPAN/
+               rsync://ftp.yzu.edu.tw/pub/CPAN/
+               rsync://ftp.ubuntu-tw.org/CPAN/
+               rsync://mirrors.digipower.vn/CPAN/
+               rsync://cpan.inode.at/CPAN/
+               rsync://ftp.byfly.by/CPAN/
+               rsync://mirror.datacenter.by/CPAN/
+               rsync://ftp.belnet.be/cpan/
+               rsync://cpan.mirror.ba/CPAN/
+               rsync://mirrors.neterra.net/CPAN/
+               rsync://mirrors.netix.net/CPAN/
+               rsync://mirror.dkm.cz/cpan/
+               rsync://mirrors.nic.cz/CPAN/
+               rsync://cpan.mirror.vutbr.cz/cpan/
+               rsync://rsync.nic.funet.fi/CPAN/
+               rsync://ftp.ciril.fr/pub/cpan/
+               rsync://distrib-coffee.ipsl.jussieu.fr/pub/mirrors/cpan/
+               rsync://cpan.mirrors.ovh.net/CPAN/
+               rsync://mirror.de.leaseweb.net/CPAN/
+               rsync://mirror.euserv.net/cpan/
+               rsync://ftp-stud.hs-esslingen.de/CPAN/
+               rsync://ftp.gwdg.de/pub/languages/perl/CPAN/
+               rsync://ftp.hawo.stw.uni-erlangen.de/CPAN/
+               rsync://cpan.mirror.iphh.net/CPAN/
+               rsync://mirror.netcologne.de/cpan/
+               rsync://ftp.halifax.rwth-aachen.de/cpan/
+               rsync://ftp.ntua.gr/CPAN/
+               rsync://mirror.met.hu/CPAN/
+               rsync://ftp.heanet.ie/mirrors/ftp.perl.org/pub/CPAN/
+               rsync://rsync.panu.it/CPAN/
+               rsync://mirror.as43289.net/CPAN/
+               rsync://rsync.cs.uu.nl/CPAN/
+               rsync://mirror.nl.leaseweb.net/CPAN/
+               rsync://ftp.nluug.nl/CPAN/
+               rsync://mirror.transip.net/CPAN/
+               rsync://cpan.uib.no/cpan/
+               rsync://cpan.vianett.no/CPAN/
+               rsync://cpan.perl-hackers.net/CPAN/
+               rsync://cpan.perl.pt/cpan/
+               rsync://mirrors.m247.ro/CPAN/
+               rsync://mirrors.teentelecom.net/CPAN/
+               rsync://cpan.webdesk.ru/CPAN/
+               rsync://mirror.yandex.ru/mirrors/cpan/
+               rsync://mirror.sbb.rs/CPAN/
+               rsync://ftp.acc.umu.se/mirror/CPAN/
+               rsync://rsync.pirbot.com/ftp/cpan/
+               rsync://cpan.ip-connect.vn.ua/CPAN/
+               rsync://rsync.mirror.anlx.net/CPAN/
+               rsync://mirror.bytemark.co.uk/CPAN/
+               rsync://mirror.sax.uk.as61049.net/CPAN/
+               rsync://rsync.mirrorservice.org/cpan.perl.org/CPAN/
+               rsync://ftp.ticklers.org/CPAN/
+               rsync://mirrors.uk2.net/CPAN/
+               rsync://CPAN.mirror.rafal.ca/CPAN/
+               rsync://mirror.csclub.uwaterloo.ca/CPAN/
+               rsync://mirrors.namecheap.com/CPAN/
+               rsync://mirrors.syringanetworks.net/CPAN/
+               rsync://mirror.team-cymru.org/CPAN/
+               rsync://debian.cse.msu.edu/cpan/
+               rsync://mirrors-usa.go-parts.com/mirrors/cpan/
+               rsync://rsync.hoovism.com/CPAN/
+               rsync://mirror.cc.columbia.edu/cpan/
+               rsync://noodle.portalus.net/CPAN/
+               rsync://mirrors.rit.edu/cpan/
+               rsync://mirrors.ibiblio.org/CPAN/
+               rsync://cpan.pair.com/CPAN/
+               rsync://cpan.cs.utah.edu/CPAN/
+               rsync://mirror.cogentco.com/CPAN/
+               rsync://mirror.jmu.edu/CPAN/
+               rsync://mirror.us.leaseweb.net/CPAN/
+               rsync://cpan.mirror.digitalpacific.com.au/cpan/
+               rsync://mirror.internode.on.net/cpan/
+               rsync://uberglobalmirror.com/cpan/
+               rsync://cpan.lagoon.nc/cpan/
+               rsync://mirrors.mmgdesigns.com.ar/CPAN/
+
 
 For an up-to-date listing of CPAN sites,
-see http://www.cpan.org/SITES or ftp://www.cpan.org/SITES .
+see L<http://www.cpan.org/SITES> or L<ftp://www.cpan.org/SITES>.
 
 =head1 Modules: Creation, Use, and Abuse
 
@@ -1016,7 +1119,7 @@ its methods by loading dynamic C or C++ objects, but that should be
 totally transparent to the user of the module.  Likewise, the module
 might set up an AUTOLOAD function to slurp in subroutine definitions on
 demand, but this is also transparent.  Only the F<.pm> file is required to
-exist.  See L<perlsub>, L<perltoot>, and L<AutoLoader> for details about
+exist.  See L<perlsub>, L<perlobj>, and L<AutoLoader> for details about
 the AUTOLOAD mechanism.
 
 =head2 Guidelines for Module Creation
@@ -1076,7 +1179,7 @@ Let the objects look after themselves! Generally, avoid hard-wired
 class names as far as possible.
 
 Avoid C<< $r->Class::func() >> where using C<@ISA=qw(... Class ...)> and
-C<< $r->func() >> would work (see L<perlbot> for more details).
+C<< $r->func() >> would work.
 
 Use autosplit so little used or newly added functions won't be a
 burden to programs that don't use them. Add test functions to
@@ -1102,7 +1205,7 @@ of code that need less strictness.
 
 Always use B<-w>.
 
-Follow the guidelines in the perlstyle(1) manual.
+Follow the guidelines in L<perlstyle>.
 
 Always use B<-w>.
 
@@ -1181,7 +1284,6 @@ Module names should begin with a capital letter.
 Having 57 modules all called Sort will not make life easy for anyone
 (though having 23 called Sort::Quick is only marginally better :-).
 Imagine someone trying to install your module alongside many others.
-If in any doubt ask for suggestions in comp.lang.perl.misc.
 
 If you are developing a suite of related modules/classes it's good
 practice to use nested classes with a common prefix as this will
@@ -1202,6 +1304,12 @@ To be portable each component of a module name should be limited to
 11 characters. If it might be used on MS-DOS then try to ensure each is
 unique in the first 8 characters. Nested modules make this easier.
 
+For additional guidance on the naming of modules, please consult:
+
+    http://pause.perl.org/pause/query?ACTION=pause_namingmodules
+
+or send mail to the <module-authors@perl.org> mailing list.
+
 =item  *
 
 Have you got it right?
@@ -1211,8 +1319,9 @@ picked an interface design that will cause problems later? Have
 you picked the most appropriate name? Do you have any questions?
 
 The best way to know for sure, and pick up many helpful suggestions,
-is to ask someone who knows. Comp.lang.perl.misc is read by just about
-all the people who develop modules and it's the best place to ask.
+is to ask someone who knows. The <module-authors@perl.org> mailing list
+is useful for this purpose; it's also accessible via news interface as
+perl.module-authors at nntp.perl.org.
 
 All you need to do is post a short summary of the module, its
 purpose and interfaces. A few lines on each of the main methods is
@@ -1300,7 +1409,7 @@ Give the module a version/issue/release number.
 
 To be fully compatible with the Exporter and MakeMaker modules you
 should store your module's version number in a non-my package
-variable called $VERSION.  This should be a floating point
+variable called $VERSION.  This should be a positive floating point
 number with at least two digits after the decimal (i.e., hundredths,
 e.g, C<$VERSION = "0.01">).  Don't use a "1.3.2" style version.
 See L<Exporter> for details.
@@ -1314,43 +1423,22 @@ See perldoc ExtUtils::MakeMaker.pm for details.
 
 How to release and distribute a module.
 
-It's good idea to post an announcement of the availability of your
-module (or the module itself if small) to the comp.lang.perl.announce
-Usenet newsgroup.  This will at least ensure very wide once-off
-distribution.
+If possible, register the module with CPAN. Follow the instructions
+and links on:
 
-If possible, register the module with CPAN.  You should
-include details of its location in your announcement.
-
-Some notes about ftp archives: Please use a long descriptive file
-name that includes the version number. Most incoming directories
-will not be readable/listable, i.e., you won't be able to see your
-file after uploading it. Remember to send your email notification
-message as soon as possible after uploading else your file may get
-deleted automatically. Allow time for the file to be processed
-and/or check the file has been processed before announcing its
-location.
-
-FTP Archives for Perl Modules:
-
-Follow the instructions and links on:
-
-   http://www.cpan.org/modules/00modlist.long.html
    http://www.cpan.org/modules/04pause.html
 
-or upload to one of these sites:
+and upload to:
 
-   https://pause.kbx.de/pause/
-   http://pause.perl.org/pause/
+   http://pause.perl.org/
 
-and notify <modules@perl.org>.
+and notify <modules@perl.org>. This will allow anyone to install
+your module using the C<cpan> tool distributed with Perl.
 
 By using the WWW interface you can ask the Upload Server to mirror
 your modules from your ftp or WWW site into your own directory on
 CPAN!
 
-Please remember to send me an updated entry for the Module list!
-
 =item  *
 
 Take care when changing a released module.
@@ -1475,8 +1563,7 @@ that a module doesn't pollute any namespace it wasn't asked to.  The
 written contract for the module (A.K.A. documentation) may make other
 provisions.  But then you know when you C<use RedefineTheWorld> that
 you're redefining the world and willing to take the consequences.
-EOF
 
-close MANIFEST or warn "$0: failed to close MANIFEST (../MANIFEST): $!";
-close OUT      or warn "$0: failed to close OUT (perlmodlib.pod): $!";
+=cut
 
+read_only_bottom_close_and_rename($out);