mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Handle module extension/suffix earlier in corelist update

Browse Source 
This makes Devel::PPPort less special and handles
Pod-Functions/Functions_pm.PL correctly.
This commit is contained in:
E. Choroba 2022-07-25 11:47:47 +02:00 committed by Karl Williamson
parent 5e9f734a7d
commit f863a123fc
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Porting/corelist.pl
View File

@ -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;
},