negotiate content for documentation browser slightly more strict

mojolicious · Sep 21, 2013 · 3b9d574 · 3b9d574
1 parent 9368fc7
commit 3b9d574
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/lib/Mojolicious/Plugin/PODRenderer.pm b/lib/Mojolicious/Plugin/PODRenderer.pm
@@ -96,7 +96,7 @@ sub _perldoc {
     unless $path && -r $path;
 
   my $src = slurp $path;
-  $self->respond_to(txt => {data => $src}, any => sub { _html($self, $src) });
+  $self->respond_to(txt => {data => $src}, html => sub { _html($self, $src) });
 }
 
 sub _pod_to_html {

diff --git a/t/mojolicious/pod_renderer_lite_app.t b/t/mojolicious/pod_renderer_lite_app.t
@@ -80,6 +80,9 @@ $t->get_ok('/perldoc/Mojolicious.txt')->status_is(200)
 $t->get_ok('/perldoc/Mojolicious' => {Accept => 'text/plain'})->status_is(200)
   ->content_type_is('text/plain;charset=UTF-8')->content_like(qr/\$VERSION/);
 
+# Perldoc browser (unsupported format)
+$t->get_ok('/perldoc/Mojolicious.json')->status_is(204);
+
 done_testing();
 
 __DATA__