From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 20 Apr 2009 22:01:18 +0000 (+0100)
Subject: Tweak corelist.pl's heuristics to cope with the renamed directoriess in ext/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da09dfe31dd61a9d5a3c2d9d69e3d674b6c642ac;p=p5sagit%2Fp5-mst-13.2.git

Tweak corelist.pl's heuristics to cope with the renamed directoriess in ext/
---

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index b8b74b3..0d40c78 100644
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -22,16 +22,15 @@ find(sub {
 	and ( $module =~ s{^(.*)/lib/\1\b}{$1},
 	      $module =~ s{(\w+)/\1\b}{$1},
 	      $module =~ s{^B/O}{O},
-	      $module =~ s{^IO_Compress_Base/lib/}{},
-	      $module =~ s{^IO_Compress_Zlib/(?:lib/)?}{},
-	      $module =~ s{^Devel/PPPort}{Devel},
+	      $module =~ s{^Devel-PPPort}{Devel},
 	      $module =~ s{^Encode/encoding}{encoding},
-	      $module =~ s{^IPC/SysV/}{IPC/},
-	      $module =~ s{^List/Util/lib/Scalar}{Scalar},
-	      $module =~ s{^MIME/Base64/QuotedPrint}{MIME/QuotedPrint},
+	      $module =~ s{^IPC-SysV/}{IPC/},
+	      $module =~ s{^MIME-Base64/QuotedPrint}{MIME/QuotedPrint},
 	      $module =~ s{^(?:DynaLoader|Errno|Opcode)/}{},
 	    );
     $module =~ s{/}{::}g;
+    $module =~ s{-}{::}g;
+    $module =~ s{^.*::lib::}{};
     $module =~ s/(\.pm|_pm\.PL)$//;
     $lines{$module} = $version;
 }, 'lib', 'ext', 'vms/ext', 'symbian/ext');