6 |
|
|
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
|
|
9 |
|
#use Carp::REPL; # 'nodie'; |
10 |
|
|
11 |
use lib 'lib'; |
use lib 'lib'; |
12 |
use Frey::Run; |
use Frey::Run; |
13 |
|
|
58 |
my $content_type = 'text/plain'; |
my $content_type = 'text/plain'; |
59 |
|
|
60 |
eval { |
eval { |
|
# { |
|
61 |
|
|
62 |
if ( $path =~ m{/reload(.*)} ) { |
if ( $path =~ m{/reload(.*)} ) { |
63 |
|
|
151 |
if ( $@ ) { |
if ( $@ ) { |
152 |
warn "SERVER ERROR: $@"; |
warn "SERVER ERROR: $@"; |
153 |
# $req->conn->send_error( 404 ); # FIXME this should probably be 500, but we can't ship page with it |
# $req->conn->send_error( 404 ); # FIXME this should probably be 500, but we can't ship page with it |
154 |
|
$content_type = 'text/html'; |
155 |
$self->print( qq{<pre class="frey-error">$@<pre>\r\n\r\n} ); |
$self->print( qq{<pre class="frey-error">$@<pre>\r\n\r\n} ); |
156 |
# Carp::REPL::repl; |
# Carp::REPL::repl; |
157 |
} |
} |