From e0d959b22253e4c59ea3d48cbb8b5eebe677fb1d Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Fri, 6 Aug 2004 13:12:54 +0000
Subject: [PATCH] =?UTF-8?q?(GetHttpHeader):=20Fix=20typo=20related=20to=20?=
 =?UTF-8?q?last=5Fmodified=20header,=20thanks=20to=20Andr=C3=A9s=20Martine?=
 =?UTF-8?q?lli.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 wiki.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index 73c8754a..968f61f2 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -304,7 +304,7 @@ sub InitVariables {    # Init global session variables for mod_perl!
   unshift(@MyRules, \&MyRules) if defined(&MyRules) && (not @MyRules or $MyRules[0] != \&MyRules);
   @MyRules = sort {$RuleOrder{$a} <=> $RuleOrder{$b}} @MyRules; # default is 0
   $WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
-    . $q->p('$Id: wiki.pl,v 1.436 2004/07/14 14:50:08 as Exp $');
+    . $q->p('$Id: wiki.pl,v 1.437 2004/08/06 13:12:54 as Exp $');
   $WikiDescription .= $ModulesDescription if $ModulesDescription;
 }
 
@@ -1818,7 +1818,7 @@ sub GetHttpHeader {
   $modified = $LastUpdate unless $modified;
   my $time = $modified ? gmtime($modified) : gmtime;
   my %headers = (-cache_control=>($UseCache < 0 ? 'no-cache' : 'max-age=10'));
-  $headers{last_modified} = $time if GetParam('cache', $UseCache) >= 2;
+  $headers{-last_modified} = $time if GetParam('cache', $UseCache) >= 2;
   if ($HttpCharset ne '') {
     $headers{-type} = "$type; charset=$HttpCharset";
   } else {