[Bps-public-commit] cpan2rt branch, master, updated. f8c668549b08623a5004490120900e04ac1a08d1

[Dianne Skoll]

The branch, master has been updated
       via  f8c668549b08623a5004490120900e04ac1a08d1 (commit)
      from  72c9e14e079ea0f638b72a78a20c06bef066f940 (commit)

Summary of changes:
 lib/CPAN2RT.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit f8c668549b08623a5004490120900e04ac1a08d1
Author: Dianne Skoll <dianne at bestpractical.com>
Date:   Fri Feb 26 11:43:34 2021 -0500

    Get the underlying scroller from the result set

diff --git a/lib/CPAN2RT.pm b/lib/CPAN2RT.pm
index 33e80db..d138d03 100644
--- a/lib/CPAN2RT.pm
+++ b/lib/CPAN2RT.pm
@@ -313,17 +313,21 @@ sub _sync_bugtracker_cpan2rt {
     require MetaCPAN::Client;
     my $mc = MetaCPAN::Client->new;
 
-    my $scroller = $mc->all('releases',
+    my $resultset = $mc->all('releases',
                             { fields => ['distribution', 'maturity', 'status',
                                          'resources.bugtracker.web',
                                          'resources.bugtracker.mailto']
                             }
                            );
 
-    unless ( defined($scroller) ) {
+    unless ( defined($resultset) ) {
         die("Request to api.metacpan.org failed.\n");
     }
 
+    # We are given a MetaCPAN::Client::ResultSet but want the underlying
+    # scroller
+    my $scroller = $resultset->scroller;
+
     debug { "Requested data from api.metacpan.org\n" };
 
     my @has_bugtracker;

-----------------------------------------------------------------------