X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FEngineLoader.pm;h=e4d4c8120955b6fc935294c4c9def9bf0a6d1fa5;hp=36cf0168b5b27ef1dfca243cc860911cc14e2719;hb=b007fcc611c8584b634e27a60ebfe5b6f518601a;hpb=0c6352ff331d7d1c43931d24e1fd8efb21b6d902 diff --git a/lib/Catalyst/EngineLoader.pm b/lib/Catalyst/EngineLoader.pm index 36cf016..e4d4c81 100644 --- a/lib/Catalyst/EngineLoader.pm +++ b/lib/Catalyst/EngineLoader.pm @@ -63,31 +63,29 @@ EOW around guess => sub { my ($orig, $self) = (shift, shift); my $engine = $self->$orig(@_); - if ($engine eq 'Standalone') { - if ( $ENV{MOD_PERL} ) { - my ( $software, $version ) = - $ENV{MOD_PERL} =~ /^(\S+)\/(\d+(?:[\.\_]\d+)+)/; - $version =~ s/_//g; - $version =~ s/(\.[^.]+)\./$1/g; - - if ( $software eq 'mod_perl' ) { - if ( $version >= 1.99922 ) { - $engine = 'Apache2'; - } - - elsif ( $version >= 1.9901 ) { - Catalyst::Exception->throw( message => 'Plack does not have a mod_perl 1.99 handler' ); - $engine = 'Apache2::MP19'; - } - - elsif ( $version >= 1.24 ) { - $engine = 'Apache1'; - } - - else { - Catalyst::Exception->throw( message => - qq/Unsupported mod_perl version: $ENV{MOD_PERL}/ ); - } + if ( $ENV{MOD_PERL} ) { + my ( $software, $version ) = + $ENV{MOD_PERL} =~ /^(\S+)\/(\d+(?:[\.\_]\d+)+)/; + $version =~ s/_//g; + $version =~ s/(\.[^.]+)\./$1/g; + + if ( $software eq 'mod_perl' ) { + if ( $version >= 1.99922 ) { + $engine = 'Apache2'; + } + + elsif ( $version >= 1.9901 ) { + Catalyst::Exception->throw( message => 'Plack does not have a mod_perl 1.99 handler' ); + $engine = 'Apache2::MP19'; + } + + elsif ( $version >= 1.24 ) { + $engine = 'Apache1'; + } + + else { + Catalyst::Exception->throw( message => + qq/Unsupported mod_perl version: $ENV{MOD_PERL}/ ); } } }