Add gzip retry for the sidestore downloads

This is a workaround for the sidestore sometimes returning the content
uncompressed.

Author: mlschroe

Build/Download.pm

@@ -197,7 +197,15 @@ sub download {
     die("download of $url failed: $status\n") unless $retry-- > 0 && $res->previous;
     warn("retrying $url\n");
   }
-  checkfiledigest($dest, $opt{'digest'}) if $opt{'digest'};
+  if ($opt{'digest'}) {
+    eval { checkfiledigest($dest, $opt{'digest'}) };
+    if ($@ && $opt{'gzip_retry'}) {
+      unlink($dest);
+      my @newheaders = (@{$opt{'headers'} || []}, 'Accept-Encoding' => 'gzip');
+      return download($url, $dest, $destfinal, %opt, 'headers' => \@newheaders, 'gzip_retry' => 0);
+    }
+    die($@) if $@;
+  }
   if ($destfinal) {
     rename($dest, $destfinal) || die("rename $dest $destfinal: $!\n");
   }

PBuild/RemoteAssets.pm

@@ -261,7 +261,7 @@ sub fedpkg_fetch {
     $path = PBuild::Util::urlencode($path);
     my $fedpkg_url = $url;
     $fedpkg_url =~ s/\/?$/\/$path/;
-    if (Build::Download::download($fedpkg_url, "$adir/.$assetid.$$", undef, 'retry' => 3, 'digest' => $asset->{'digest'}, 'missingok' => 1, 'headers' => [ 'Accept' => '*/*', 'Accept-Encoding' => 'identity' ])) {
+    if (Build::Download::download($fedpkg_url, "$adir/.$assetid.$$", undef, 'retry' => 3, 'digest' => $asset->{'digest'}, 'missingok' => 1, 'headers' => [ 'Accept' => '*/*', 'Accept-Encoding' => 'identity' ], 'gzip_retry' => 1)) {
       rename_unless_present("$adir/.$assetid.$$", "$adir/$assetid");
     }
   }