From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 9 Aug 2006 09:52:38 +0000 (+0000)
Subject: Add OS-specific modules in Module::Corelist generation script
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a626d91ebf0fc844b14baff96786c14b0e83a71;p=p5sagit%2Fp5-mst-13.2.git

Add OS-specific modules in Module::Corelist generation script
(hinted by Steve Hay)

p4raw-id: //depot/perl@28681
---

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index f76928f..f79cc15 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";