fixed the absolute forward bug
Sebastian Riedel [Thu, 14 Apr 2005 12:34:05 +0000 (12:34 +0000)]
lib/Catalyst/Dispatcher.pm

index d5c2aeb..9287bdb 100644 (file)
@@ -115,7 +115,7 @@ sub forward {
     my $caller    = caller(0);
     my $namespace = '/';
     if ( $command =~ /^\// ) {
-        $command =~ /^(.*)\/(\w+)$/;
+        $command =~ /^\/(.*)\/(\w+)$/;
         $namespace = $1 || '/';
         $command = $2;
     }