[bml] r129: LJSUP-6426, LJSUP-6437 - prepare for non...

LJSUP-6426, LJSUP-6437 - prepare for non-default 'cache-control' in bml file

U   trunk/lib/Apache/BML.pm

Modified: trunk/lib/Apache/BML.pm
===================================================================
--- trunk/lib/Apache/BML.pm	2010-07-20 07:41:26 UTC (rev 128)
+++ trunk/lib/Apache/BML.pm	2010-08-18 10:19:24 UTC (rev 129)
@@ -399,7 +399,8 @@
         LJ::Request->header_out("Last-Modified", $modtime_http)
             if $env->{'Static'} || $req->{'want_last_modified'};
 
-        LJ::Request->header_out("Cache-Control", "private, proxy-revalidate");
+        my $cache_control = LJ::Request->header_out("Cache-Control");
+        LJ::Request->header_out("Cache-Control", "private, proxy-revalidate") unless $cache_control;
         LJ::Request->header_out("ETag", $etag) if defined $etag;
 
         # gzip encoding