From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 12 Nov 2007 13:30:04 +0000 (+0000)
Subject: Fix listing of MIME::QuotedPrint in perlmodlib
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86cf5c171c4d820de48ffb93dd5b659122b9d627;p=p5sagit%2Fp5-mst-13.2.git

Fix listing of MIME::QuotedPrint in perlmodlib

p4raw-id: //depot/perl@32282
---

diff --git a/pod/perlmodlib.PL b/pod/perlmodlib.PL
index a574543..b7e5bf3 100644
--- a/pod/perlmodlib.PL
+++ b/pod/perlmodlib.PL
@@ -10,6 +10,8 @@ open (MANIFEST, "../MANIFEST") or die $!;
 push @MANIFEST, 'lib/Config.pod', 'lib/Errno.pm', 'lib/lib.pm',
     'lib/DynaLoader.pm', 'lib/XSLoader.pm';
 
+-f "../lib/DynaLoader.pm" or die "Must be run from a source tree where perl has been built\n";
+
 for (@MANIFEST) {
      my $filename;
      next unless s|^lib/|| or m|^ext/|;
@@ -49,6 +51,9 @@ for (@MANIFEST) {
      $perlname =~ s!\b(\w+)/\1\b!$1!;
      $perlname =~ s!/!::!g;
 
+     # modules with non standard locations
+     $perlname =~ s{Base64::QuotedPrint}{QuotedPrint};
+
      ($name, $thing) = split / --? /, $title, 2;
 
      unless ($name and $thing) {
diff --git a/pod/perlmodlib.pod b/pod/perlmodlib.pod
index eebeedb..164b9cf 100644
--- a/pod/perlmodlib.pod
+++ b/pod/perlmodlib.pod
@@ -1093,7 +1093,7 @@ Message objects for Log::Message
 
 Encoding and decoding of base64 strings
 
-=item MIME::Base64::QuotedPrint
+=item MIME::QuotedPrint
 
 Encoding and decoding of quoted-printable strings