This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: use utf8; with bad utf8
authorNicholas Clark <nick@ccl4.org>
Thu, 13 Dec 2001 17:09:39 +0000 (17:09 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 13 Dec 2001 16:12:19 +0000 (16:12 +0000)
Message-ID: <20011213170939.L21702@plum.flirble.org>

p4raw-id: //depot/perl@13674

t/lib/1_compile.t

index eb5e72f..7624181 100644 (file)
@@ -21,6 +21,7 @@ sub add_by_name {
 }
 
 while (<MANIFEST>) {
 }
 
 while (<MANIFEST>) {
+    s/_pm\.PL/.pm/; # Don't forget the extracted modules
     if (m!^(lib)/(\S+?)\.pm\s!) {
        # Collecting modules names from under ext/ would be
        # rather painful since the mapping from filenames
     if (m!^(lib)/(\S+?)\.pm\s!) {
        # Collecting modules names from under ext/ would be
        # rather painful since the mapping from filenames