From: Jesse Vincent <jesse@bestpractical.com>
Date: Wed, 30 Sep 2009 16:06:49 +0000 (+0900)
Subject: First steps to making corelist.pl understand the new world order
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f809cd97bf47a6b00da9eb4f01af6a6b1368389;p=p5sagit%2Fp5-mst-13.2.git

First steps to making corelist.pl understand the new world order
---

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 4bd71e9..2423280 100644
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -17,7 +17,7 @@ use Maintainers qw(%Modules files_to_modules);
 use File::Spec;
 use Parse::CPAN::Meta;
 
-my $corelist_file = 'ext/Module-CoreList/lib/Module/CoreList.pm';
+my $corelist_file = 'dist/Module-CoreList/lib/Module/CoreList.pm';
 
 my %lines;
 my %module_to_file;
@@ -78,13 +78,14 @@ find(
         /(\.pm|_pm\.PL)$/ or return;
         /PPPort\.pm$/ and return;
         my $module = $File::Find::name;
+		warn $module;
         $module =~ /\b(demo|t|private)\b/ and return;    # demo or test modules
         my $version = MM->parse_version($_);
         defined $version or $version = 'undef';
         $version =~ /\d/ and $version = "'$version'";
 
         # some heuristics to figure out the module name from the file name
-        $module =~ s{^(lib|(win32/|vms/|symbian/)?ext)/}{}
+        $module =~ s{^(lib|dist|(win32/|vms/|symbian/)?ext)/}{}
             and $1 ne 'lib'
             and (
             $module =~ s{\b(\w+)/\1\b}{$1},
@@ -104,6 +105,7 @@ find(
     },
     'lib',
     'ext',
+	'dist',
     'vms/ext',
     'symbian/ext'
 );