[Bps-public-commit] cpan2rt branch, deploy, updated. b0e6e6250df30528b0d5a9a802fca298eb0f28a3

Alex Vandiver alexmv at bestpractical.com
Sun Nov 24 01:26:58 EST 2013


The branch, deploy has been updated
       via  b0e6e6250df30528b0d5a9a802fca298eb0f28a3 (commit)
      from  58e0088a0e20e2ef6dd1343c4444213901c67f1c (commit)

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

- Log -----------------------------------------------------------------
commit b0e6e6250df30528b0d5a9a802fca298eb0f28a3
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Sun Nov 24 01:26:54 2013 -0500

    api.metacpan looks to no return "field" but rather "_source" not

diff --git a/lib/CPAN2RT.pm b/lib/CPAN2RT.pm
index 1bc2905..0697fba 100644
--- a/lib/CPAN2RT.pm
+++ b/lib/CPAN2RT.pm
@@ -372,9 +372,9 @@ sub _sync_bugtracker_cpan2rt {
         my $bugtracker = {};
 
         # Record data
-        my $dist   = $result->{"fields"}->{"distribution"};
-        my $mailto = $result->{"fields"}->{"resources.bugtracker"}->{"mailto"};
-        my $web    = $result->{"fields"}->{"resources.bugtracker"}->{"web"};
+        my $dist   = $result->{"_source"}->{"distribution"};
+        my $mailto = $result->{"_source"}->{"resources.bugtracker"}->{"mailto"};
+        my $web    = $result->{"_source"}->{"resources.bugtracker"}->{"web"};
 
         # Email based alternative - we don't care if this is rt.cpan.org
         if(defined($mailto) && !($mailto =~ m/rt\.cpan\.org/)) {

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



More information about the Bps-public-commit mailing list