We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 0f81e20 + a56aa4e commit d1a4eb8Copy full SHA for d1a4eb8
lib/MetaCPAN/Model/Release.pm
@@ -545,9 +545,15 @@ sub _modules_from_files {
545
546
# Ignore packages that people cannot claim.
547
# 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
- {
+ #
+ # Parse::PMFile and PAUSE translate apostrophes to double colons,
+ # 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) {
557
my $version = $info->version($pkg);
558
$file->add_module( {
559
name => $pkg,
0 commit comments