diff options
author | dakkar <dakkar@thenautilus.net> | 2016-10-20 15:35:26 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-10-20 15:35:26 +0000 |
commit | 558796a5d4862a9a50820d50d3acf6f9dd917cd7 (patch) | |
tree | 682d83613a7d6a405423572b1cfa31adea4756ea | |
parent | deal with missing abstract (diff) | |
download | metacpan-diff-feed-558796a5d4862a9a50820d50d3acf6f9dd917cd7.tar.gz metacpan-diff-feed-558796a5d4862a9a50820d50d3acf6f9dd917cd7.tar.bz2 metacpan-diff-feed-558796a5d4862a9a50820d50d3acf6f9dd917cd7.zip |
include interim trials in changelg diff
-rw-r--r-- | meta.pl | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -25,7 +25,7 @@ around BUILDARGS => sub { return $class->$orig($args); }; -sub get_previous { +sub get_previous_stable { my ($self) = @_; my $prev_release = $api->post( @@ -42,11 +42,10 @@ sub get_previous { } }, }, filter => { - and => [ { - term => { - 'release.distribution' => $self->distribution, - }, - } ] + and => [ + { term => { 'release.distribution' => $self->distribution } }, + { term => { 'release.maturity' => 'released' } }, + ], } } }, @@ -103,7 +102,7 @@ sub get_changelog_diff { return {error=>'no changelog file'} unless $this_changelog; - my $prev_release = $release->get_previous; + my $prev_release = $release->get_previous_stable; return {diff=>$this_changelog} if !$prev_release; |