diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-09 09:52:38 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-09 09:52:38 +0000 |
commit | 4a626d91ebf0fc844b14baff96786c14b0e83a71 (patch) | |
tree | 74df318357efc809cde58a40afe4f1de334e7012 /Porting | |
parent | 46370a745e71659317da2e154dccd7247c245431 (diff) | |
download | perl-4a626d91ebf0fc844b14baff96786c14b0e83a71.tar.gz |
Add OS-specific modules in Module::Corelist generation script
(hinted by Steve Hay)
p4raw-id: //depot/perl@28681
Diffstat (limited to 'Porting')
-rw-r--r-- | Porting/corelist.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl index f76928f721..f79cc15473 100644 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -17,8 +17,8 @@ find(sub { 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' + $module =~ s{^(lib|(win32/|vms/|symbian/)?ext)/}{} + and $1 ne 'lib' and ( $module =~ s{^(.*)/lib/\1\b}{$1}, $module =~ s{(\w+)/\1\b}{$1}, $module =~ s{^B/O}{O}, @@ -34,7 +34,7 @@ find(sub { $module =~ s{/}{::}g; $module =~ s/(\.pm|_pm\.PL)$//; push @lines, sprintf "\t%-24s=> $version,\n", "'$module'"; -}, 'lib', 'ext'); +}, 'lib', 'ext', 'win32/ext', 'vms/ext', 'symbian/ext'); print " $] => {\n"; print sort @lines; print " },\n"; |