For S_incpush(), dir is never NULL, and len is always > 0.

[p5sagit/p5-mst-13.2.git] / Porting / corelist.pl

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 4609ee8..5c25d0a 100644 (file)
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -7,7 +7,7 @@ use warnings;
 use File::Find;
 use ExtUtils::MM_Unix;
 
-my @lines;
+my %lines;
 find(sub {
     /(\.pm|_pm\.PL)$/ or return;
     /PPPort\.pm$/ and return;
@@ -17,21 +17,32 @@ 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{^Compress/IO/Base/lib/}{},
+             $module =~ s{^B/O}{O},
+             $module =~ s{^IO_Compress_Base/lib/}{},
+             $module =~ s{^IO_Compress_Zlib/(?:lib/)?}{},
              $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)$//;
-    push @lines, sprintf "\t%-24s=> $version,\n", "'$module'";
-}, 'lib', 'ext');
+    $lines{sprintf "\t%-24s=> $version,\n", "'$module'"}++;
+}, 'lib', 'ext', 'vms/ext', 'symbian/ext');
+
+-e 'configpm' and $lines{sprintf "\t%-24s=> undef,\n", "'Config'"}++;
+
+if (open my $ucdv, "<", "lib/unicore/version") {
+    chomp (my $ucd = <$ucdv>);
+    $lines{sprintf "\t%-24s=> '$ucd',\n", "'Unicode'"}++;
+    close $ucdv;
+    }
 print "    $] => {\n";
-print sort @lines;
+print sort keys %lines;
 print "    },\n";