From: David Mitchell <davem@iabyn.com>
Date: Sat, 16 May 2009 23:35:03 +0000 (+0100)
Subject: make Porting/corecpan.pl use the MANIFEST file of every source tree it
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=392c9d37bbb0163a3a57cdee926692338ca7fea5;p=p5sagit%2Fp5-mst-13.2.git

make Porting/corecpan.pl use the MANIFEST file of every source tree it
examines, rather than just the first one
---

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index ec8895c..d035bcd 100644
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -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)) {