X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine.pm;h=d1716efd6703f41a28a54eaf319509c3485db4f5;hb=6d1ab9154b299ce3697ec69d4ffd10dda4c07c0e;hp=e25b2054c4d27ba34eaee2cb8a08f55b1bd18937;hpb=c539a1c32cc974e531bea851e9f393800ed7a1c0;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm index e25b205..d1716ef 100644 --- a/lib/Catalyst/Engine.pm +++ b/lib/Catalyst/Engine.pm @@ -126,7 +126,7 @@ Errors are available via $c->error. sub execute { my ( $c, $class, $code ) = @_; - $class = $c->comp($class) || $class; + $class = $c->components->{$class} || $class; $c->state(0); my $callsub = ( caller(1) )[3]; @@ -463,7 +463,8 @@ sub prepare { $t->setColWidth( 'Key', 37, 1 ); $t->setColWidth( 'Value', 36, 1 ); for my $key ( keys %{ $c->req->params } ) { - my $value = $c->req->params->{$key} || ''; + my $param = $c->req->params->{$key}; + my $value = defined($param) ? $param : ''; $t->addRow( $key, $value ); } $c->log->debug( 'Parameters are', $t->draw );