From: Jesse Vincent <jesse@bestpractical.com>
Date: Thu, 1 Oct 2009 18:40:19 +0000 (+0900)
Subject: Updated corecpan.pl for the new module layout
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36512bd8db85eeea6f683296e5f830f6ffb32116;p=p5sagit%2Fp5-mst-13.2.git

Updated corecpan.pl for the new module layout
---

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index 6fced80..647696b 100644
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -91,8 +91,8 @@ foreach my $source (@sources) {
 	    $module =~ s/\_pm.PL\z//;
 	    $module =~ s/\.pm\z//;
 	    # some heuristics to figure out the module name from the file name
-	    $module =~ s{^(lib|ext)/}{}
-		and $1 eq 'ext'
+	    $module =~ s{^(lib|ext|dist|cpan)/}{}
+		and $1 =~ /(?:ext|dist|cpan)/
 		and (
 		      # ext/Foo-Bar/Bar.pm
 		      $module =~ s{^(\w+)-(\w+)/\2$}{$1/lib/$1/$2},