summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2016-10-20 15:35:26 +0000
committerdakkar <dakkar@thenautilus.net>2016-10-20 15:35:26 +0000
commit558796a5d4862a9a50820d50d3acf6f9dd917cd7 (patch)
tree682d83613a7d6a405423572b1cfa31adea4756ea
parentdeal with missing abstract (diff)
downloadmetacpan-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.pl13
1 files changed, 6 insertions, 7 deletions
diff --git a/meta.pl b/meta.pl
index 5ad1e32..5ceae4a 100644
--- a/meta.pl
+++ b/meta.pl
@@ -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;