[Bps-public-commit] r17167 - in Path-Dispatcher/trunk: lib/Path/Dispatcher

[sartak at bestpractical.com]

Author: sartak
Date: Wed Dec 10 22:30:38 2008
New Revision: 17167

Modified:
   Path-Dispatcher/trunk/   (props changed)
   Path-Dispatcher/trunk/lib/Path/Dispatcher/Declarative.pm

Log:
 r76980 at onn:  sartak | 2008-12-10 22:12:33 -0500
 use the Eq rule for string predicates


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Declarative.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Declarative.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Declarative.pm	Wed Dec 10 22:30:38 2008
@@ -152,10 +152,9 @@
         ),
     },
     '' => sub {
-        my ($self, $tokens, $block) = @_;
-        Path::Dispatcher::Rule::Tokens->new(
-            tokens => [$tokens],
-            delimiter => $self->token_delimiter,
+        my ($self, $string, $block) = @_;
+        Path::Dispatcher::Rule::Eq->new(
+            string => $string,
             $block ? (block => $block) : (),
         ),
     },