Commit ae22034d authored by Dan Fandrich's avatar Dan Fandrich
Browse files

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
parent f355a92c

src/mkhelp.pl

+13 −2
Original line number Diff line number Diff line
@@ -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(