diff options
| author | Jesse Vincent <jesse@bestpractical.com> | 2009-10-02 05:00:52 +0900 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-10-02 05:00:52 +0900 |
| commit | 3eae08dfbe89d75b89c4024f9ef41b7e8aa46236 (patch) | |
| tree | ccc1569647423579b8cb851c5f101e48b300263a /Porting | |
| parent | c333c49d40583dd67c05cd0f19fd0837e773eb9c (diff) | |
| download | perl-3eae08dfbe89d75b89c4024f9ef41b7e8aa46236.tar.gz | |
More work to get corelist.pl to know the new world order
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/corelist.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl index b63605180c..7fa8dcd3ff 100644 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -85,12 +85,13 @@ find( $version =~ /\d/ and $version = "'$version'"; # some heuristics to figure out the module name from the file name - $module =~ s{^(lib|dist|(vms/|symbian/)?ext)/}{} - and $1 ne 'lib' + $module =~ s{^(lib|cpan|dist|(vms/|symbian/)?ext)/}{} + 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{^Encode/encoding}{encoding}, $module =~ s{^IPC-SysV/}{IPC/}, $module =~ s{^MIME-Base64/QuotedPrint}{MIME/QuotedPrint}, @@ -98,13 +99,14 @@ find( ); $module =~ s{/}{::}g; $module =~ s{-}{::}g; - $module =~ s{^.*::lib::}{}; + $module =~ s{^.*::lib::}{}; $module =~ s/(\.pm|_pm\.PL)$//; $lines{$module} = $version; $module_to_file{$module} = $File::Find::name; }, 'lib', 'ext', + 'cpan', 'dist', 'vms/ext', 'symbian/ext' |