extends 'Catalyst::Controller';
+use Catalyst::Exception ();
use HTTP::Request::AsCGI ();
use HTTP::Request ();
use URI ();
select($old);
- die $saved_error if $saved_error;
+ if( $saved_error ) {
+ die $saved_error if ref $saved_error;
+ Catalyst::Exception->throw(
+ message => "CGI invocation failed: $saved_error"
+ );
+ }
}
return $env->response;