| Subject: | content encoding header not being set |
Compression was broken completely by a simple mistake. See patch.
I guess I'm the only person in the world who actually uses this as a server.
--- Server.pm.orig 2004-10-22 18:48:09.000000000 -0700
+++ Server.pm 2004-10-22 18:49:25.000000000 -0700
@@ -1343,7 +1343,7 @@
my $self = shift;
my $conn = shift;
- my ($req, $reqxml, $resp, $respxml, $compress, $do_compress, $parser,
+ my ($req, $reqxml, $resp, $respxml, $do_compress, $parser,
$com_engine, $length, $read, $buf, $resp_fh, $tmpfile);
my $me = ref($self) . '::process_request';
@@ -1469,7 +1469,7 @@
$self->compress_re))
{
$do_compress = 1;
- $resp->content_encoding($compress);
+ $resp->content_encoding($self->compress);
}
# Next step, determine the response disposition. If it is above the # threshhold for a requested file cut-off, send it to a temp file