fixed forward
Sebastian Riedel [Mon, 28 Mar 2005 20:56:26 +0000 (20:56 +0000)]
lib/Catalyst/Engine.pm

index ec4842b..aa020d8 100644 (file)
@@ -266,7 +266,11 @@ sub forward {
     }
     my $caller    = caller(0);
     my $namespace = '/';
-    if ( $command =~ /^\/(.*)$/ ) { $command = $1 }
+    if ( $command =~ /^\/$/ ) {
+        $command =~ /^(.*)\/(\w+)$/;
+        $namespace = $1 || '/';
+        $command = $2;
+    }
     else { $namespace = _class2prefix($caller) || '/' }
     my $results = $c->get_action( $command, $namespace );
     unless ( @{$results} ) {