Skip to content

Commit d1a4eb8

Browse files
authored
Merge pull request #1344 from metacpan/haarg/apostrophe-package-latest
normalize package names to use ::
2 parents 0f81e20 + a56aa4e commit d1a4eb8

File tree

1 file changed

+9
-3
lines changed

1 file changed

+9
-3
lines changed

lib/MetaCPAN/Model/Release.pm

Lines changed: 9 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -545,9 +545,15 @@ sub _modules_from_files {
545545

546546
# Ignore packages that people cannot claim.
547547
# https://github.com/andk/pause/blob/master/lib/PAUSE/pmfile.pm#L236
548-
for my $pkg ( grep { $_ ne 'main' && $_ ne 'DB' }
549-
$info->packages_inside )
550-
{
548+
#
549+
# Parse::PMFile and PAUSE translate apostrophes to double colons,
550+
# but Module::Metadata does not.
551+
my @packages
552+
= map s{'}{::}gr,
553+
grep { $_ ne 'main' && $_ ne 'DB' }
554+
$info->packages_inside;
555+
556+
for my $pkg (@packages) {
551557
my $version = $info->version($pkg);
552558
$file->add_module( {
553559
name => $pkg,

0 commit comments

Comments
 (0)