From 04fac1a2e0a0446e841baed35996cddba0a7c6bc Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Wed, 14 Aug 2013 17:05:04 +0100
Subject: [PATCH] Force no cache on generated content to prevent hilarious
 problems.

---
 Webperl/Application.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Webperl/Application.pm b/Webperl/Application.pm
index fe6a785..e22ea85 100644
--- a/Webperl/Application.pm
+++ b/Webperl/Application.pm
@@ -263,7 +263,9 @@ sub run {
     my $content = $pageobj -> page_display();
 
     print $self -> {"cgi"} -> header(-charset => 'utf-8',
-                                     -cookie  => $self -> {"session"} -> session_cookies());
+                                     -cookie  => $self -> {"session"} -> session_cookies(),
+                                     -expires => "now",
+                                     -Cache_Control => "no-cache");
 
     $self -> {"endtime"} = time();
     my ($user, $system, $cuser, $csystem) = times();