From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 9 Aug 2006 09:23:02 +0000 (+0000)
Subject: More fixes in the Module::Corelist data generation process
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc5f10bbd2c8340a8fbe59586ff81766cc6dbcaf;p=p5sagit%2Fp5-mst-13.2.git

More fixes in the Module::Corelist data generation process

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

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 4609ee8..f76928f 100644
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -21,12 +21,15 @@ find(sub {
 	and $1 eq 'ext'
 	and ( $module =~ s{^(.*)/lib/\1\b}{$1},
 	      $module =~ s{(\w+)/\1\b}{$1},
+	      $module =~ s{^B/O}{O},
 	      $module =~ s{^Compress/IO/Base/lib/}{},
+	      $module =~ s{^Compress/IO/Zlib/}{},
 	      $module =~ s{^Devel/PPPort}{Devel},
 	      $module =~ s{^Encode/encoding}{encoding},
-	      $module =~ s{^MIME/Base64/QuotedPrint}{MIME/QuotedPrint},
+	      $module =~ s{^IPC/SysV/}{IPC/},
 	      $module =~ s{^List/Util/lib/Scalar}{Scalar},
-	      $module =~ s{^(?:DynaLoader|Errno)/}{},
+	      $module =~ s{^MIME/Base64/QuotedPrint}{MIME/QuotedPrint},
+	      $module =~ s{^(?:DynaLoader|Errno|Opcode)/}{},
 	    );
     $module =~ s{/}{::}g;
     $module =~ s/(\.pm|_pm\.PL)$//;