--- trunk/lib/Frey/SVK.pm 2008/11/24 22:21:02 505 +++ trunk/lib/Frey/SVK.pm 2008/11/26 16:17:17 535 @@ -1,7 +1,8 @@ package Frey::SVK; use Moose; -with 'Frey::Escape'; +extends 'Frey'; +with 'Frey::Web'; sub svk { my ( $self, $exec, $coderef ) = @_; @@ -28,7 +29,7 @@ return $info if $info; my $svk = $self->svk('info', sub { my ( $label, $value ) = split(/:\s+/, $_, 2); - $info->{$label} = $value; + $info->{$label} = $value if $label; }); return $info; } @@ -48,7 +49,8 @@ my $html = qq|
$status

|
-		. $self->html_escape( $diff )
+#		. $self->html_escape( $diff )
+		. $diff
 		. qq|
| ; warn "diff ",length($html)," bytes";