if (!defined $old_engine) {
return 'Catalyst::Engine';
}
- elsif ($old_engine =~ /^(CGI|FCGI|HTTP|Apache.*)$/) {
+ elsif ($old_engine eq 'PSGI') {
+ ## If we are running under plackup let the Catalyst::Engine::PSGI
+ ## continue to run, but warn.
+ warn <<"EOW";
+You are running Catalyst::Engine::PSGI, which is considered a legacy engine for
+this version of Catalyst. We will continue running and use your existing psgi
+file, but it is recommended to perform the trivial upgrade process, which will
+leave you with less code and a forward path.
+
+Please review Catalyst::Upgrading
+EOW
+ return 'Catalyst::Engine::' . $old_engine;
+ }
+ elsif ($old_engine =~ /^(CGI|FastCGI|HTTP|Apache.*)$/) {
return 'Catalyst::Engine';
}
else {
my $old_engine = Catalyst::Utils::env_value($self->application_name, 'ENGINE');
if (!defined $old_engine) { # Not overridden
}
- elsif ($old_engine =~ /^(CGI|FCGI|HTTP|Apache.*)$/) {
+ elsif ($old_engine =~ /^(PSGI|CGI|Apache.*)$/) {
# Trust autodetect
}
+ elsif ($old_engine eq 'HTTP') {
+ $engine = 'Standalone';
+ }
+ elsif ($old_engine eq 'FastCGI') {
+ $engine = 'FCGI';
+ }
elsif ($old_engine eq "HTTP::Prefork") { # Too bad if you're customising, we don't handle options
# write yourself a script to collect and pass in the options
$engine = "Starman";