consider patch perls to be development perls

There's some weird data in the database right now, but it seems like the
existing backend code treats patch perls as non-stable perls.

Author: preaction

lib/CPAN/Testers/Schema/ResultSet/Stats.pm

@@ -49,8 +49,15 @@ C<dev> Perl versions.
 sub perl_maturity( $self, $maturity ) {
     my $devel = $maturity eq 'stable' ? 0 : $maturity eq 'dev' ? 1
         : Carp::croak "Unknown maturity: $maturity; Must be one of: 'stable', 'dev'";
+    if ( !$devel ) {
+        # Patch versions are not stable either
+        return $self->search(
+            { 'perl_version.devel' => 0, 'perl_version.patch' => 0 },
+            { join => 'perl_version' },
+        );
+    }
     return $self->search(
-        { 'perl_version.devel' => $devel },
+        { -or => { 'perl_version.devel' => 1, 'perl_version.patch' => 1 } },
         { join => 'perl_version' },
     );
 }

t/resultset/stats.t

@@ -132,6 +132,7 @@ subtest 'since' => sub {
 
 subtest 'perl_maturity' => sub {
     my $perl_devel = $schema->resultset( 'PerlVersion' )->create({ version => '5.25.0' });
+    my $perl_patch = $schema->resultset( 'PerlVersion' )->create({ version => '5.24.0 patch 123' });
     my $perl_stable = $schema->resultset( 'PerlVersion' )->create({ version => '5.22.2' });
 
     my $devel_stat = $schema->resultset( 'Stats' )->create({
@@ -151,11 +152,29 @@ subtest 'perl_maturity' => sub {
         'version' => '0.02',
     });
 
+    my $patch_stat = $schema->resultset( 'Stats' )->create({
+        'dist' => 'Sorauta-SVN-AutoCommit',
+        'fulldate' => '201705071643',
+        'guid' => '11111111-3343-11e7-b830-917e22bfee97',
+        'id' => 3,
+        'osname' => 'linux',
+        'osvers' => '4.8.0-2-amd64',
+        'perl' => '5.24.0 patch 123',
+        'platform' => 'x86_64-linux',
+        'postdate' => 201705,
+        'state' => 'pass',
+        'tester' => '"Andreas J. Koenig" <[email protected]>',
+        'type' => 2,
+        'uploadid' => 169497,
+        'version' => '0.02',
+    });
+
     my $dev_rs = $schema->resultset( 'Stats' )->perl_maturity( 'dev' );
     my @dev_rows = $dev_rs->all;
-    is scalar @dev_rows, 1, '1 test reported for a devel perl';
-    is $dev_rows[0]->guid, '00000000-3343-11e7-b830-917e22bfee97',
-        'correct guid for devel perl';
+    is scalar @dev_rows, 2, '2 tests reported for a devel perl';
+    is_deeply [ sort map { $_->guid } @dev_rows ],
+        [ '00000000-3343-11e7-b830-917e22bfee97', '11111111-3343-11e7-b830-917e22bfee97' ],
+        'correct guids for devel perl';
 
     my $stable_rs = $schema->resultset( 'Stats' )->perl_maturity( 'stable' );
     my @stable_rows = $stable_rs->all;