Merge a580982 into 141117f

metacpan · Feb 18, 2015 · 15ba5c5 · 15ba5c5
2 parents 141117f + a580982
commit 15ba5c5
Show file tree

Hide file tree

Showing 3 changed files with 31 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Document/Release.pm b/lib/MetaCPAN/Document/Release.pm
@@ -217,6 +217,12 @@ has metadata => (
     source_only => 1,
 );
 
+has changes_file => (
+    is       => 'rw',
+    isa      => 'Str',
+    required => 0,
+);
+
 sub _build_version_numified {
     return MetaCPAN::Util::numify_version( shift->version );
 }

diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
@@ -335,6 +335,8 @@ sub import_tarball {
     );
     $bulk->commit;
 
+    $release->changes_file( $self->set_changes_file( \@files ) );
+
     log_debug {'Gathering modules'};
 
     # build module -> pod file mapping
@@ -490,6 +492,25 @@ sub import_tarball {
     }
 }
 
+sub set_changes_file {
+    my $self  = shift;
+    my @files = @{ $_[0] };
+
+    my @changes_files = qw(
+        Changelog
+        ChangeLog
+        CHANGELOG
+        Changes
+        CHANGES
+        NEWS
+    );
+
+    foreach my $file (@files) {
+        return $file->name if grep { $_ eq $file->name } @changes_files;
+    }
+
+}
+
 sub load_meta_file {
     my ( $self, $dir ) = @_;
     my @files;

diff --git a/t/release/file-changes.t b/t/release/file-changes.t
@@ -13,9 +13,10 @@ my $release = $idx->type('release')->get(
     }
 );
 
-is( $release->name,    'File-Changes-1.0', 'name ok' );
-is( $release->author,  'LOCAL',            'author ok' );
-is( $release->version, '1.0',              'version ok' );
+is( $release->name,         'File-Changes-1.0', 'name ok' );
+is( $release->author,       'LOCAL',            'author ok' );
+is( $release->version,      '1.0',              'version ok' );
+is( $release->changes_file, 'Changes',          'changes_file ok' );
 
 {
     my @files