X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=32ccd67d6e191e2ee679a2965126d1ae444ad4b2;hb=47ce945eb2137ee3851d44eff2e5b640157867c8;hp=ab305eca9ddc4c7d105cb1dce88a855a904fcbfa;hpb=5d2c7203d35650cf3dc99a7b6d6e6659ebc7d559;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm index ab305ec..32ccd67 100644 --- a/lib/Catalyst/Dispatcher.pm +++ b/lib/Catalyst/Dispatcher.pm @@ -135,9 +135,11 @@ sub forward { unless ( @{$results} ) { my $class = $command || ''; + my $path = $class . '.pm'; + $path =~ s/::/\//g; - if ( $class =~ /[^\w\:]/ ) { - my $error = qq/"$class" is an invalid Class name/; + unless ( $INC{ $path } ) { + my $error = qq/Couldn't forward to "$class". Invalid or not loaded./; $c->error($error); $c->log->debug($error) if $c->debug; return 0;