From 013d90de12d542d43b2afa871539b795ee17914f Mon Sep 17 00:00:00 2001
From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Tue, 5 Aug 2008 19:52:20 -0300
Subject: [PATCH] Packages::Dispatcher: Send Vary: HTTP header

---
 lib/Packages/Dispatcher.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Packages/Dispatcher.pm b/lib/Packages/Dispatcher.pm
index c250011..986b12a 100755
--- a/lib/Packages/Dispatcher.pm
+++ b/lib/Packages/Dispatcher.pm
@@ -342,6 +342,7 @@ sub do_dispatch {
     unless (@Packages::CGI::fatal_errors) {
 	print $input->header(-charset => $charset,
 			     -type => get_mime($opts{format}),
+			     -vary => 'negotiate,accept-language',
 			     -last_modified => strftime("%a, %d %b %Y %T %z",
 							localtime($Packages::DB::db_read_time)),
 			     );
-- 
2.39.2