Merge pull request #1732 from CPAN-API/topic/changelog-trial-note

check for TRIAL in note when detecting dev changelogs
metacpan · Jun 14, 2016 · dc8684a · dc8684a
2 parents 07e4106 + 01f9216
commit dc8684a
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Web/Model/API/Changes.pm b/lib/MetaCPAN/Web/Model/API/Changes.pm
@@ -32,9 +32,8 @@ sub last_version {
 
     my @releases = sort { $b->[0] <=> $a->[0] }
         map {
-        my $v = $_->{version};
-        $v =~ s/-TRIAL$//;
-        my $dev = $_->{version} =~ /_|-TRIAL$/;
+        my $v = $_->{version} =~ s/-TRIAL$//r;
+        my $dev = $_->{version} =~ /_|-TRIAL$/ || $_->{note} =~ /\bTRIAL\b/;
         [ version->parse($v), $v, $dev, $_ ];
         } @$releases;