--- trunk/lib/Frey/Web.pm 2009/06/30 15:10:55 1133 +++ trunk/lib/Frey/Web.pm 2009/11/04 21:49:05 1194 @@ -312,6 +312,14 @@ my $revision = $svk->info->{Revision} || ''; $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; + $status_line = $ENV{FREY_DEV} ? qq| +
+ Frey $Frey::VERSION $revision + $status_line + $right +
+ | : ''; + $self->add_icon; my $title = undef @@ -338,11 +346,7 @@ qq| $body -
- Frey $Frey::VERSION $revision - $status_line - $right -
+ $status_line |, ); @@ -431,6 +435,10 @@ my $self = shift; my $error = join(" ", @_); + if ( $error =~ m{(.+)}s ) { + return qq|
$1
|; + } + my $fatal = ''; my $backtrace = ''; @@ -478,11 +486,11 @@ Called at beginning of each request - $self->clean_status; + $self->setup_request; =cut -sub clean_status { +sub setup_request { my ($self) = shift; warn "## clean_status"; @head = ( 'static/frey.css' ); @@ -534,7 +542,7 @@ =cut sub log_path { - $Frey::Bootstrap::log_path || die "no log_path?"; + $Frey::Bootstrap::log_path || die "no log_path did you load Frey::Bootstrap?"; } our $pwd = `pwd`;