--- trunk/lib/Frey/Web.pm 2009/07/02 15:30:30 1158 +++ branches/zimbardo/lib/Frey/Web.pm 2010/11/03 21:43:50 1196 @@ -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 = ''; @@ -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`;