From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Fri, 27 Nov 2015 16:49:44 +0000 (+0100)
Subject: Fix an issue where static files would have no content-type or -length set.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=5526f8d9bbc00db6accf155fd74550a61d4f2033

Fix an issue where static files would have no content-type or -length set.
---

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index d72e0cb..171f47d 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -1007,7 +1007,7 @@ sub set_last_modified {
 	my ($res, $mtime) = @_;
 
 	my $str = POSIX::strftime("%a, %d %b %Y %H:%M:%S GMT", gmtime($mtime));
-	$res->headers({ 'Last-Modified' => $str });
+	$res->header('Last-Modified' => $str);
 }
 
 sub get_server_name {