Add a X-Content-Type header start for #272

metacpan · Apr 9, 2014 · d1d874d · d1d874d
1 parent 45c0241
commit d1d874d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Server/Controller/Source.pm b/lib/MetaCPAN/Server/Controller/Source.pm
@@ -5,6 +5,7 @@ use warnings;
 
 use Moose;
 use Plack::App::Directory;
+use Plack::MIME;
 
 BEGIN { extends 'MetaCPAN::Server::Controller' }
 
@@ -32,6 +33,7 @@ sub get : Chained('index') : PathPart('') : Args {
     }
     else {
         $c->stash->{path} = $file;
+        $c->res->header( 'X-Content-Type' => Plack::MIME->mime_type($file) || 'text/plain' );
         $c->res->content_type('text/plain');
         $c->res->body( $file->openr );
     }

diff --git a/t/server/controller/source.t b/t/server/controller/source.t
@@ -25,6 +25,11 @@ test_psgi app, sub {
                 'text/plain; charset=UTF-8',
                 'Content-type'
             );
+            is( $res->header('X-Content-Type'),
+                'x-script.perl-module; charset=UTF-8',
+                'X-Content-Type'
+            );
+
         }
         elsif ( $k =~ /MANIFEST/ ) {