Support comparing extensions in cpan/ as well as ext/

diff --git a/Porting/core-cpan-diff b/Porting/core-cpan-diff
index 1b38a94..8e3feeb 100755 (executable)
--- 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;