moparisthebest
/
curl
mirror of https://github.com/moparisthebest/curl
1
0
Fork 0
Code Issues Releases Wiki Activity

mkhelp: disable compression if the perl gzip module is unavailable 

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(