Deprecate (or at least discourage) :raw.

[p5sagit/p5-mst-13.2.git] / pod / perlmodlib.PL

diff --git a/pod/perlmodlib.PL b/pod/perlmodlib.PL
index b3cf7f4..fd39e65 100644 (file)
--- a/pod/perlmodlib.PL
+++ b/pod/perlmodlib.PL
@@ -4,9 +4,12 @@ $ENV{LC_ALL} = 'C';
 
 open (OUT, ">perlmodlib.tmp") or die $!;
 my (@pragma, @mod, @MANIFEST);
+
 open (MANIFEST, "../MANIFEST") or die $!;
+@MANIFEST = grep !m</(?:t|demo)/>, <MANIFEST>;
+push @MANIFEST, 'lib/Config.pm', 'lib/Errno.pm';
 
-while (<MANIFEST>) {
+for (@MANIFEST) {
      my $filename;
      next unless s|^lib/|| or m|^ext/|;
      ($filename) = m|^(\S+)|;