# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1412673763 -7200
# Node ID 4f5b1795bc92ff31ea7bd072e4bba829230a3aa5
# Parent  54f575c3d0c5ae8ccb3948795bb45f3790428cea
default charset utf-8 because the upload script is mostly used by us and we use mostly utf-8 if applicable at all

diff -r 54f575c3d0c5 -r 4f5b1795bc92 upload.pl
--- a/upload.pl	Tue Oct 07 10:58:52 2014 +0200
+++ b/upload.pl	Tue Oct 07 11:22:43 2014 +0200
@@ -65,7 +65,7 @@
         $absolute =~ m|^\Q$base/$DIR\E| or die "invalid path: [$absolute]";
 
         open F, '<', $absolute or die "Can't open '<', '$absolute': $!";
-        print header(-type => mimetype($absolute));
+        print header(-type => mimetype($absolute), -charset => 'UTF-8');
         if (request_method() ~~ [qw(GET POST)]) {
             my ($buf, $res);
             print $buf while $res = read F, $buf, 32 * 2**10;