aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/mkhelp.pl15
1 files changed, 13 insertions, 2 deletions
diff --git a/src/mkhelp.pl b/src/mkhelp.pl
index 8b7f72157..4b540744c 100644
--- a/src/mkhelp.pl
+++ b/src/mkhelp.pl
@@ -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(