cache_control —
Interchange 5.7.0 (1/1 contexts shown):
Source: lib/Vend/Server.pm
Line 581 (context shows lines 571-585 in get_cache_headers():578)
$_ = shift;
s:^\s+::;
s:\s+$::;
s:\s*\n\s*:\r\n:g;
return "$_\r\n";
}
sub get_cache_headers {
my @headers;
my $cc = $::Pragma->{cache_control};
push @headers, "Cache-Control: $cc" if $cc;
push @headers, "Pragma: no-cache" if delete $::Scratch->{mv_no_cache};