From 5526f8d9bbc00db6accf155fd74550a61d4f2033 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Fri, 27 Nov 2015 17:49:44 +0100
Subject: [PATCH] Fix an issue where static files would have no content-type or
 -length set.

---
 perl/Sesse/pr0n/Common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 {
-- 
2.39.2