diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-09 09:01:25 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-09 09:01:25 +0000 |
| commit | d51d469b4cbcda7d16d3e7418eac76e2fda7b012 (patch) | |
| tree | 8710851131dd98704ffa9c916f05b65a1ebaed46 /Porting | |
| parent | b2254e947aaa758476711320a92f5aad9dc71706 (diff) | |
| download | perl-d51d469b4cbcda7d16d3e7418eac76e2fda7b012.tar.gz | |
Really submit previous change
p4raw-id: //depot/perl@28678
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/corelist.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl index e9d51ad17d..4609ee865e 100644 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -2,7 +2,6 @@ # Generates info for Module::CoreList from this perl tree # run this from the root of a clean perl tree -use 5.9.0; use strict; use warnings; use File::Find; @@ -11,16 +10,19 @@ use ExtUtils::MM_Unix; my @lines; find(sub { /(\.pm|_pm\.PL)$/ or return; - /PPPort_pm\.PL/ and return; + /PPPort\.pm$/ and return; my $module = $File::Find::name; - $module =~ /\b(demo|t)\b/ and return; # demo or test modules - my $version = MM->parse_version($_) // 'undef'; + $module =~ /\b(demo|t|private)\b/ and return; # demo or test modules + my $version = MM->parse_version($_); + defined $version or $version = 'undef'; $version =~ /\d/ and $version = "'$version'"; # some heuristics to figure out the module name from the file name $module =~ s{^(lib|ext)/}{} and $1 eq 'ext' and ( $module =~ s{^(.*)/lib/\1\b}{$1}, $module =~ s{(\w+)/\1\b}{$1}, + $module =~ s{^Compress/IO/Base/lib/}{}, + $module =~ s{^Devel/PPPort}{Devel}, $module =~ s{^Encode/encoding}{encoding}, $module =~ s{^MIME/Base64/QuotedPrint}{MIME/QuotedPrint}, $module =~ s{^List/Util/lib/Scalar}{Scalar}, |