switch to + separated for sections

diff --git a/lib/Web/Simple/DispatchParser.pm b/lib/Web/Simple/DispatchParser.pm
index 71568de..16d9bc5 100644 (file)
--- a/lib/Web/Simple/DispatchParser.pm
+++ b/lib/Web/Simple/DispatchParser.pm
@@ -23,7 +23,7 @@ sub parse_dispatch_specification {
       push @match, $self->_parse_spec_section($spec)
         or $self->_blam("Unable to work out what the next section is");
       last PARSE if (pos == length);
-      /\G\s+/gc or $self->_blam('Spec sections not space separated');
+      /\G\+/gc or $self->_blam('Spec sections must be separated by +');
     } until (pos == length) }; # accept trailing whitespace
     return $match[0] if (@match == 1);
     return sub {

diff --git a/t/dispatch_parser.t b/t/dispatch_parser.t
index ab6206e..0a8b0cf 100644 (file)
--- a/t/dispatch_parser.t
+++ b/t/dispatch_parser.t
@@ -68,7 +68,7 @@ is_deeply(
   '/post/one/ does not match'
 );
 
-my $combi = $dp->parse_dispatch_specification('GET /post/*');
+my $combi = $dp->parse_dispatch_specification('GET+/post/*');
 
 is_deeply(
   [ $combi->({ PATH_INFO => '/post/one', REQUEST_METHOD => 'GET' }) ],