Lines Matching refs:GZIP
107 my @test = `gzip --version 2>&1`;
108 if($test[0] =~ /gzip/) {
109 open(GZIP, ">dumpit") ||
111 binmode GZIP;
113 print GZIP $_;
114 $gzip += length($_);
116 close(GZIP);
118 system("gzip --best --no-name dumpit");
120 open(GZIP, "<dumpit.gz") ||
122 binmode GZIP;
123 while(<GZIP>) {
124 push @gzip, $_;
127 close(GZIP);
132 # no gzip, no compression!
134 print STDERR "MEEEP: Couldn't find gzip, disable compression\n";
153 /* This mumbo-jumbo is the huge help text compressed with gzip.
154 Thanks to this operation, the size of this data shrunk from $gzip
161 for(@gzip) {
187 /* Decompress and send to stdout a gzip-compressed buffer */
194 /* Make sure no gzip options are set */
