Message-ID: </WnB9gzkgC5S092yn@efn.org>
p4raw-id: //depot/perl@17195
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+)|;