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

[sartak at bestpractical.com]

Author: sartak
Date: Mon Aug 25 19:50:22 2008
New Revision: 15454

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

Log:
 r70338 at onn:  sartak | 2008-08-25 19:50:18 -0400
 Make sure we clear number variables if we don't do an empty-string match


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Dispatch/Match.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Dispatch/Match.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Dispatch/Match.pm	Mon Aug 25 19:50:22 2008
@@ -60,6 +60,10 @@
         $str =~ $re
             or die "Unable to match '$str' against a copy of itself!";
     }
+    else {
+        # need to clear $1 and friends
+        "x" =~ /^x$/;
+    }
 
     $code->();
 }