--- trunk/lib/Frey/Web.pm	2008/11/30 19:21:52	648
+++ trunk/lib/Frey/Web.pm	2008/11/30 23:19:06	652
@@ -249,7 +249,7 @@
 			</span>
 		|;
 
-	my $svk = Frey::SVK->new;
+	my $svk = Frey::SVK->new( request_url => '/' );
 	my $info = $svk->info;
 	my $revision = $svk->info->{Revision} || '';
 	$revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)};
@@ -472,6 +472,9 @@
 our $last_log_pos  = 0;
 our $last_log_line = 0;
 
+our $pwd = `pwd`;
+chomp $pwd;
+
 sub warnings_html {
 	my ($self,$level) = shift;
 	$level ||= $self->debug,
@@ -528,6 +531,10 @@
 			my $level = $1;
 			my $msg = $_;
 
+			# Mojo seems to expand warn messages to full path which is annoying
+			$msg =~ s{/[^/]+/\.\./}{/}gs;
+			$msg =~ s{$pwd/*}{}gs;
+
 			my $spacer = ' ';
 			my $real_msg = expand( $msg );
 			if ( length($real_msg) > $self->html_dump_width ) {