fixed tainted $1 data from previous regexp.

[catagits/Catalyst-Runtime.git] / lib / Catalyst.pm

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index e5eb853..9dde550 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -42,7 +42,7 @@ Catalyst - The Elegant MVC Web Application Framework
 
     sub default : Private { $_[1]->res->output('Hello') } );
 
-    sub index : Absolute('index.html') {
+    sub index : Path('/index.html') {
         my ( $self, $c ) = @_;
         $c->res->output('Hello');
         $c->forward('_foo');
@@ -180,12 +180,6 @@ sub import {
     $engine = "Catalyst::Engine::$ENV{CATALYST_ENGINE}"
       if $ENV{CATALYST_ENGINE};
 
-    if ( $engine eq 'Catalyst::Engine::Server' ) {
-        $engine = 'Catalyst::Engine::HTTP::Daemon';
-        $caller->log->warn( "Catalyst::Engine::Server is deprecated, "
-              . "using Catalyst::Engine::HTTP::Daemon." );
-    }
-
     $engine->require;
     die qq/Couldn't load engine "$engine", "$@"/ if $@;
     {