accept gzipped river data

GH #460
metacpan · Apr 30, 2016 · 05a163f · 05a163f
1 parent ca63dab
commit 05a163f
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Script/River.pm b/lib/MetaCPAN/Script/River.pm
@@ -53,7 +53,14 @@ sub retrieve_river_summaries {
 
     $self->handle_error( $resp->status_line ) unless $resp->is_success;
 
-    return decode_json $resp->content;
+    # cleanup headers if .json.gz is served as gzip type
+    # rather than json encoded with gzip
+    if ( $resp->header('Content-Type') eq 'application/x-gzip' ) {
+        $resp->header( 'Content-Type'     => 'application/json' );
+        $resp->header( 'Content-Encoding' => 'gzip' );
+    }
+
+    return decode_json $resp->decoded_content;
 }
 
 __PACKAGE__->meta->make_immutable;