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/},