33     if (/\.gz$/ ) { 

    33     if (/\.gz$/ ) { 

    34 	$zbuffer = <$fh>;

    34 	$zbuffer = <$fh>;

    35 	gunzip(\$zbuffer => \$buffer)

    35 	gunzip(\$zbuffer => \$buffer)

    36 	    or die $GunzipError;

    36 	    or die $GunzipError;

    37 

    37 

    38 	return if length($zbuffer)/length($buffer) < THRESHOLD;

    42 	return if length($zbuffer)/length($buffer) < THRESHOLD;

    39 

    43 

    40 	$tmp = File::Temp->new(DIR => ".", TEMPLATE => ".tmp-XXXXXX");

    44 	$tmp = File::Temp->new(DIR => ".", TEMPLATE => ".tmp-XXXXXX");

    41 	print {$tmp} $buffer;

    45 	print {$tmp} $buffer;

    42 	rename $tmp->filename => basename($_, ".gz");

    46 	rename $tmp->filename => basename($_, ".gz");