switch dispatch [] to dispatch {}

[catagits/Web-Simple.git] / examples / bloggery / bloggery.cgi

diff --git a/examples/bloggery/bloggery.cgi b/examples/bloggery/bloggery.cgi
index 947180f..1a2fee1 100755 (executable)
--- a/examples/bloggery/bloggery.cgi
+++ b/examples/bloggery/bloggery.cgi
@@ -84,7 +84,7 @@ sub post {
   $self->post_list->post($post);
 }
 
-dispatch [
+dispatch {
   sub (.html) {
     response_filter { $self->render_html($_[1]) },
   },
@@ -103,7 +103,7 @@ dispatch [
   sub {
     [ 405, [ 'Content-type', 'text/plain' ], [ 'Method not allowed' ] ]
   },
-];
+};
 
 sub render_html {
   my ($self, $data) = @_;