Merge pull request #305 from nadoshmado/gh-272

Fix GH#272

Author: oalders

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,7 +33,7 @@ sub get : Chained('index') : PathPart('') : Args {
     }
     else {
         $c->stash->{path} = $file;
-        $c->res->content_type('text/plain');
+        $c->res->content_type(Plack::MIME->mime_type($file) || 'text/plain');
         $c->res->body( $file->openr );
     }
 }

t/server/controller/source.t

@@ -22,7 +22,7 @@ test_psgi app, sub {
         if ( $k eq '/source/Moose' ) {
             like( $res->content, qr/package Moose/, 'Moose source' );
             is( $res->header('content-type'),
-                'text/plain; charset=UTF-8',
+                'text/x-script.perl-module; charset=UTF-8',
                 'Content-type'
             );
         }