This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix corelist.pl after the reorganisation of the
[perl5.git] / Porting / corelist.pl
index d2a2913..c32a176 100644 (file)
@@ -22,8 +22,8 @@ find(sub {
        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/},