mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-21 01:16:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

mkhelp: disable compression if the perl gzip module is unavailable

Browse Source 
This is nowadays included with the base perl distribution, but wasn't
prior to about perl 5.14
This commit is contained in:
Dan Fandrich 2017-03-23 21:11:41 +01:00
parent f355a92cd5
commit ae22034d0d
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/mkhelp.pl
View File

@ -113,8 +113,19 @@ print <<HEAD
HEAD
;
if($c) {
# if compressed
use IO::Compress::Gzip;
# If compression requested, check that the Gzip module is available
# or else disable compression
$c = eval
{
require IO::Compress::Gzip;
IO::Compress::Gzip->import();
1;
};
print STDERR "Warning: compression requested but Gzip is not available\n" if (!$c)
}
if($c)
{
my $content = join("", @out);
my $gzippedContent;
IO::Compress::Gzip::gzip(