make Porting/corecpan.pl use the MANIFEST file of every source tree it
David Mitchell [Sat, 16 May 2009 23:35:03 +0000 (00:35 +0100)]
examines, rather than just the first one

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)) {