Fix pod/perlmodlib.PL (it wasn't generating a complete list

of modules.) Regenerate pod/perlmodlib.pod. Add a warning :
not all modules listed in perlmodlib are necessarily installed.
Plus some corrections by Vincent Lefevre.

p4raw-id: //depot/perl@17906

1 files changed, 19 insertions, 8 deletions

diff --git a/pod/perlmodlib.PL b/pod/perlmodlib.PL
index 982adff21d..9c0f51f235 100644
--- a/pod/perlmodlib.PL
+++ b/pod/perlmodlib.PL
@@ -7,15 +7,22 @@ my (@pragma, @mod, @MANIFEST);
 
 open (MANIFEST, "../MANIFEST") or die $!;
 @MANIFEST = grep !m</(?:t|demo)/>, <MANIFEST>;
-push @MANIFEST, 'lib/Config.pm', 'lib/Errno.pm';
+push @MANIFEST, 'lib/Config.pod', 'lib/Errno.pm', 'lib/lib.pm',
+    'lib/DynaLoader.pm', 'lib/XSLoader.pm';
 
 for (@MANIFEST) {
      my $filename;
      next unless s|^lib/|| or m|^ext/|;
-     ($filename) = m|^(\S+)|;
+     my ($origfilename) = ($filename) = m|^(\S+)|;
      $filename =~ s|^[^/]+/|| if $filename =~ s|^ext/||;
      next unless $filename =~ m!\.p(m|od)$!;
-     next unless open (MOD, "../lib/$filename");
+     unless (open (MOD, "../lib/$filename")) {
+	unless (open (MOD, "../$origfilename")) {
+	    warn "Couldn't open ../$origfilename: $!";
+	    next;
+	}
+	$filename = $origfilename;
+     }
 
 
      my ($name, $thing);
@@ -37,7 +44,9 @@ for (@MANIFEST) {
      close MOD;
 
      my $perlname = $filename;
+     $perlname =~ s!^.*\b(ext|lib)/!!;
      $perlname =~ s!\.p(m|od)$!!;
+     $perlname =~ s!\b(\w+)/\1\b!$1!;
      $perlname =~ s!/!::!g;
 
      ($name, $thing) = split / --? /, $title, 2;
@@ -68,13 +77,11 @@ Generated by perlmodlib.PL -- DO NOT EDIT!
 
 perlmodlib - constructing new Perl modules and finding existing ones
 
-=head1 DESCRIPTION
-
 =head1 THE PERL MODULE LIBRARY
 
-Many modules are included the Perl distribution.  These are described
+Many modules are included in the Perl distribution.  These are described
 below, and all end in F<.pm>.  You may discover compiled library
-file (usually ending in F<.so>) or small pieces of modules to be
+files (usually ending in F<.so>) or small pieces of modules to be
 autoloaded (ending in F<.al>); these were automatically generated
 by the installation process.  You may also discover files in the
 library directory that end in either F<.pl> or F<.ph>.  These are
@@ -125,6 +132,10 @@ Standard, bundled modules are all expected to behave in a well-defined
 manner with respect to namespace pollution because they use the
 Exporter module.  See their own documentation for details.
 
+It's possible that not all modules listed below are installed on your
+system. For example, the GDBM_File module will not be installed if you
+don't have the gdbm library.
+
 =over 12
 
 EOF
@@ -160,7 +171,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 Deja News.
+like Alta Vista or Google.
 
 =head1 CPAN