From f863a123fcf1fdff2257577fb7ab92fbabc69bd5 Mon Sep 17 00:00:00 2001 From: "E. Choroba" Date: Mon, 25 Jul 2022 11:47:47 +0200 Subject: [PATCH] Handle module extension/suffix earlier in corelist update This makes Devel::PPPort less special and handles Pod-Functions/Functions_pm.PL correctly. --- Porting/corelist.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Porting/corelist.pl b/Porting/corelist.pl index eb84c18b7c..562caa90f2 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -111,12 +111,12 @@ find( $version =~ /\d/ and $version = "'$version'"; # some heuristics to figure out the module name from the file name + $module =~ s/(\.pm|_pm\.PL)$//; $module =~ s{^(lib|cpan|dist|ext|os2/OS2)/}{} and $1 ne 'lib' and ( $module =~ s{\b(\w+)/\1\b}{$1}, $module =~ s{^B/O}{O}, - $module =~ s{^Devel-PPPort}{Devel}, $module =~ s{^libnet/}{}, $module =~ s{^PathTools/}{}, $module =~ s{REXX/DLL}{DLL}, @@ -131,7 +131,6 @@ find( $module =~ s{/}{::}g; $module =~ s{-}{::}g; $module =~ s{^.*::lib::}{}; # turns Foo/lib/Foo.pm into Foo.pm - $module =~ s/(\.pm|_pm\.PL)$//; $lines{$module} = $version; $module_to_file{$module} = $File::Find::name; },