summaryrefslogtreecommitdiff
path: root/Porting
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2011-07-04 22:16:40 +0100
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2011-07-04 23:43:17 +0100
commitd9c6e45dfbbd7f7c7a69cd9de94ea898cc3218b6 (patch)
tree48777f064273d8dfc6ff9d855d1cec83fb989fab /Porting
parentbafdc25d6fdf3143c875c3440a49861ff1e19000 (diff)
downloadperl-d9c6e45dfbbd7f7c7a69cd9de94ea898cc3218b6.tar.gz
Additional heuristics to catch edge-cases in corelist.pl
Addresses [rt.cpan #69108] reported by Dee Newcum
Diffstat (limited to 'Porting')
-rwxr-xr-xPorting/corelist.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index a2b7c1e81a..fda9a5e91a 100755
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -96,7 +96,9 @@ find(
$module =~ s{^Encode/encoding}{encoding},
$module =~ s{^IPC-SysV/}{IPC/},
$module =~ s{^MIME-Base64/QuotedPrint}{MIME/QuotedPrint},
- $module =~ s{^(?:DynaLoader|Errno|Opcode)/}{},
+ $module =~ s{^(?:DynaLoader|Errno|Opcode|XSLoader)/}{},
+ $module =~ s{^Sys-Syslog/win32}{Sys-Syslog},
+ $module =~ s{^Time-Piece/Seconds}{Time/Seconds},
);
$module =~ s{^vms/ext}{VMS};
$module =~ s{^lib/}{}g;