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

[sartak at bestpractical.com]

Author: sartak
Date: Tue Nov 18 19:13:44 2008
New Revision: 16908

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

Log:
 r75767 at onn:  sartak | 2008-11-18 19:13:41 -0500
 Missed a spot


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Regex.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Regex.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Regex.pm	Tue Nov 18 19:13:44 2008
@@ -15,7 +15,7 @@
 
     return unless $path->path =~ $self->regex;
 
-    my @matches = map { substr($path, $-[$_], $+[$_] - $-[$_]) } 1 .. $#-;
+    my @matches = map { substr($path->path, $-[$_], $+[$_] - $-[$_]) } 1 .. $#-;
 
     # if $' is in the program at all, then it slows down every single regex
     # we only want to include it if we have to