downloadosm: do not accept "deflate" compression

Author: eserte

miscsrc/downloadosm

@@ -4,12 +4,11 @@
 #
 # Author: Slaven Rezic
 #
-# Copyright (C) 2008,2009,2010,2011,2012,2018 Slaven Rezic. All rights reserved.
+# Copyright (C) 2008,2009,2010,2011,2012,2018,2025 Slaven Rezic. All rights reserved.
 # This program is free software; you can redistribute it and/or
 # modify it under the same terms as Perl itself.
 #
-# Mail: [email protected]
-# WWW:  http://www.rezic.de/eserte/
+# WWW:  https://github.com/eserte/bbbike
 #
 
 # Download a data from openstreetmap into the specified directory
@@ -31,7 +30,7 @@ use BBBikeUtil qw(is_in_path);
 
 sub save_pwd (&);
 
-our $VERSION = "0.04";
+our $VERSION = "0.05";
 
 use constant TIMEOUT => 60;
 
@@ -115,7 +114,8 @@ my $ua = eval {
 
     ## the download server seems to block this user agent -> use the LWP default
     $ua->agent("downloadosm/$VERSION LWP/$LWP::VERSION [part of BBBike]");
-    $ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());
+    my @decodable = grep { $_ ne 'deflate' } HTTP::Message::decodable(); # script cannot handle deflate correctly
+    $ua->default_header('Accept-Encoding' => join(", ", @decodable));
     $ua->timeout($timeout);
     $ua;
 };