fix broken try

metacpan · Mar 3, 2014 · b0062d5 · b0062d5
1 parent fdb34d2
commit b0062d5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Web/Model/API.pm b/lib/MetaCPAN/Web/Model/API.pm
@@ -72,8 +72,9 @@ sub request {
 
     $self->client->request($request)->cv->cb(
         sub {
+            my $cv = shift;
             try {
-                my ( $response, $stats ) = shift->recv;
+                my ( $response, $stats ) = $cv->recv;
                 if ( !$response ) {
                   $req->croak("bad response when requesting " . $request->uri);
                   return;