package Catalyst::Plugin::Test::Errors;
use strict;
+use NEXT;
sub error {
my $c = shift;
$c->response->status(500);
}
- $c->response->headers->push_header( 'X-Catalyst-Error' => $_[0] );
+ my $error = $_[0];
+ $error =~ s/\n/, /g;
+
+ $c->response->headers->push_header( 'X-Catalyst-Error' => $error );
$c->NEXT::error(@_);
}