--- trunk/lib/Frey/Web.pm 2009/07/02 18:28:17 1165 +++ trunk/lib/Frey/Web.pm 2009/07/02 18:56:17 1167 @@ -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 |, );