[Bps-public-commit] r17417 - in Prophet/trunk: .

sartak at bestpractical.com sartak at bestpractical.com
Mon Dec 29 20:59:42 EST 2008


Author: sartak
Date: Mon Dec 29 20:59:42 2008
New Revision: 17417

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Server/Dispatcher.pm

Log:
 r78050 at onn:  sartak | 2008-12-29 20:59:35 -0500
 Remove brackets, they're no longer required


Modified: Prophet/trunk/lib/Prophet/Server/Dispatcher.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Server/Dispatcher.pm	(original)
+++ Prophet/trunk/lib/Prophet/Server/Dispatcher.pm	Mon Dec 29 20:59:42 2008
@@ -7,27 +7,27 @@
 sub token_delimiter       {'/'}
 sub case_sensitive_tokens {0}
 
-under ['POST'] => sub {
+under 'POST' => sub {
     on qr'.*' => sub {
         my $self = shift;
         return $self->server->_send_401 if ( $self->server->read_only );
         next_rule;
     };
 
-    under [ 'records'] => sub {
+    under 'records' => sub {
         on qr|^(.*)/(.*)/(.*)$| => sub { shift->server->update_record_prop($1,$2,$3) };
         on qr|^(.*)/(.*).json$| => sub { shift->server->update_record($1,$2) };
         on qr|^(.*).json$|     => sub { shift->server->create_record($1) };
     };
 };
 
-under ['GET'] => sub {
+under 'GET' => sub {
     on qr'^=/prophet/autocomplete' => sub {
         shift->server->show_template('/_prophet_autocompleter') };
     on qr'^static/prophet/(.*)$' => sub { shift->server->send_static_file($1)};
     on qr'replica/+(.*)$' => sub { shift->server->serve_replica($1) };
     on 'records.json' => sub { shift->server->get_record_types };
-    under ['records'] => sub {
+    under 'records' => sub {
         on qr|^(.*)/(.*)/(.*)$| => sub { shift->server->get_record_prop($1,$2,$3); };
         on qr|^(.*)/(.*).json$| => sub { shift->server->get_record($1,$2) };
         on qr|^(.*).json$|      => sub { shift->server->get_record_list($1) };



More information about the Bps-public-commit mailing list