make Porting/corecpan.pl use the MANIFEST file of every source tree it
authorDavid Mitchell <davem@iabyn.com>
Sat, 16 May 2009 23:35:03 +0000 (00:35 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 20 May 2009 20:42:08 +0000 (21:42 +0100)
examines, rather than just the first one

(cherry picked from commit 392c9d37bbb0163a3a57cdee926692338ca7fea5)

Porting/corecpan.pl

index ec8895c..d035bcd 100644 (file)
@@ -8,7 +8,7 @@ use strict;
 use Getopt::Std;
 use ExtUtils::MM_Unix;
 use lib 'Porting';
-use Maintainers qw(get_module_files %Modules);
+use Maintainers qw(get_module_files reload_manifest %Modules);
 use Cwd;
 
 use List::Util qw(max);
@@ -75,6 +75,9 @@ foreach my $source (@sources) {
     my $olddir = getcwd();
     chdir $srcdir or die "chdir $srcdir: $!\n";
 
+    # load the MANIFEST file in the new directory
+    reload_manifest;
+
     for my $dist (sort keys %Modules) {
        next unless $Modules{$dist}{CPAN};
        for my $file (get_module_files($dist)) {