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{^IO_Compress_Base/lib/}{},
+ $module =~ s{^IO_Compress_Zlib/(?:lib/)?}{},
$module =~ s{^Devel/PPPort}{Devel},
$module =~ s{^Encode/encoding}{encoding},
$module =~ s{^IPC/SysV/}{IPC/},
$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'"}++;