Packages::Dispatcher: Send Vary: HTTP header

diff --git a/lib/Packages/Dispatcher.pm b/lib/Packages/Dispatcher.pm
index c2500116f10593f69406af17c084c921def23660..986b12a92212b3acbecb4dc951519c8c15a35482 100755 (executable)
--- 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)),
                             );