[MKDoc-commit] Fixed some 'uninitialized value in length' warnings when delivering

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
Fixed some 'uninitialized value in length' warnings when delivering content without body

Modified Files:
--------------
    MKDoc-Apache_Cache:
        Changes
    MKDoc-Apache_Cache/lib/MKDoc:
        Apache_Cache.pm

-------------- next part --------------
Index: Changes
===================================================================
RCS file: /var/spool/cvs/MKDoc-Apache_Cache/Changes,v
retrieving revision 1.9
retrieving revision 1.10
diff -LChanges -LChanges -u -r1.9 -r1.10
--- Changes
+++ Changes
@@ -1,5 +1,9 @@
 Revision history for MKDoc::Apache_Cache
 
+0.71
+    - Fixed some 'uninitialized value in length' warnings when delivering content without body
+    - Turn off some 'uninitialized value in lc' warnings when delivering content to clients that don't specify accept-encoding:
+
 0.7 Thu Sep 23 12:54:00 2004
     - Removed defunct jhiver at mkdoc.com email address as Jean-Michel is no longer maintainer
     - bandage patch to fix always gzip encoded bug
Index: Apache_Cache.pm
===================================================================
RCS file: /var/spool/cvs/MKDoc-Apache_Cache/lib/MKDoc/Apache_Cache.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -Llib/MKDoc/Apache_Cache.pm -Llib/MKDoc/Apache_Cache.pm -u -r1.12 -r1.13
--- lib/MKDoc/Apache_Cache.pm
+++ lib/MKDoc/Apache_Cache.pm
@@ -95,7 +95,7 @@
                    grep !/vary\:/i,
                    split /\r?\n/, $headers;
         $body = Compress::Zlib::memGunzip ($body);
-        $headers .= "\r\nContent-Length: " . length ($body);
+        $headers .= "\r\nContent-Length: " . length ($body) if ($body);
         $data = $headers . "\r\n\r\n" . $body;
     };
     };
@@ -240,7 +240,7 @@
     push @o, "ETag: " . Digest::MD5::md5_hex ($body);
 
     # Compute Content-Length
-    push @o, "Content-Length: " . length ($body);
+    push @o, "Content-Length: " . length ($body) if ($body);
 
     push @o, $headers;
     push @o, "";