handle broken response better

metacpan · Mar 1, 2014 · 27a2e2b · 27a2e2b
1 parent 38445c7
commit 27a2e2b
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Web/Model/API.pm b/lib/MetaCPAN/Web/Model/API.pm
@@ -73,6 +73,10 @@ sub request {
     $self->client->request($request)->cv->cb(
         sub {
             my ( $response, $stats ) = shift->recv;
+            if ( !$response ) {
+              $req->croak("bad response when requesting " . $request->uri);
+              return;
+            };
             my $content_type = $response->header('content-type') || '';
             my $data = $response->content;