X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fcore-cpan-diff;h=8e3feeb09f3534639feb92cee89bdc57c84f2229;hb=a22f28a4268aa03ce2bafaf594271b8ff764a5f8;hp=1b38a944202501d74fd13d7a5ade0db946fe35ea;hpb=f0ce33d74d4adc7a8b004fe6b4266de0f326c253;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/core-cpan-diff b/Porting/core-cpan-diff
index 1b38a94..8e3feeb 100755
--- a/Porting/core-cpan-diff
+++ b/Porting/core-cpan-diff
@@ -432,7 +432,7 @@ sub get_map {
 
     my $ext;
     for (@$perl_files) {
-	if (m{^(ext/[^/]+/)}) {
+	if (m{^((?:ext|cpan)/[^/]+/)}) {
 	    if (defined $ext and $ext ne $1) {
 	        # more than one ext/$ext/
 	        undef $ext;