avoid crashing in some cases

metacpan · Apr 22, 2014 · ffd8cb6 · ffd8cb6
1 parent cd8fedf
commit ffd8cb6
Showing 1 changed file with 16 additions and 8 deletions.
diff --git a/lib/MetaCPAN/Client.pm b/lib/MetaCPAN/Client.pm
@@ -183,14 +183,22 @@ sub _reverse_deps {
     my $self = shift;
     my $dist = shift;
 
-    my $res = $self->fetch(
-        '/search/reverse_dependencies/'.$dist,
-        {
-            query  => { match_all => {} },
-            filter => { term => { 'release.status' => 'latest' } },
-            size   => 5000,
-        }
-    );
+    my $res;
+
+    eval {
+        $res = $self->fetch(
+            '/search/reverse_dependencies/'.$dist,
+            {
+                query  => { match_all => {} },
+                filter => { term => { 'release.status' => 'latest' } },
+                size   => 5000,
+            }
+        );
+
+    } or do {
+        warn $@;
+        return [];
+    };
 
     return +[
         map { MetaCPAN::Client::Distribution->new_from_request($_->{'_source'}) }