quiet warning in changes processing

metacpan · Jun 21, 2016 · d54d3dd · d54d3dd
1 parent eb9099a
commit d54d3dd
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Web/Model/API/Changes.pm b/lib/MetaCPAN/Web/Model/API/Changes.pm
@@ -32,8 +32,9 @@ sub last_version {
 
     my @releases = sort { $b->[0] <=> $a->[0] }
         map {
-        my $v = $_->{version} =~ s/-TRIAL$//r;
-        my $dev = $_->{version} =~ /_|-TRIAL$/ || $_->{note} =~ /\bTRIAL\b/;
+        my $v   = $_->{version} =~ s/-TRIAL$//r;
+        my $dev = $_->{version} =~ /_|-TRIAL$/
+            || $_->{note} && $_->{note} =~ /\bTRIAL\b/;
         [ version->parse($v), $v, $dev, $_ ];
         } @$releases;