--- trunk/lib/SourceSnoop.pm 2008/09/13 14:19:04 186 +++ trunk/lib/SourceSnoop.pm 2008/09/14 00:45:11 189 @@ -5,6 +5,8 @@ use lib '/rest/cvs/vci/lib'; # FIXME use VCI; +use HTML::Entities qw/encode_entities/; + extends 'Frey'; with 'Frey::Web'; @@ -15,8 +17,14 @@ sub pre_dump { my $o = shift; # because Data::Dumper::HTML sucks - my $t = $o->dump; $t =~ s/ {8}/ /gm; - return "
$t"; + my $t; + if ( blessed($o) && $o->can('dump') ) { + $t = $o->dump; + $t =~ s/ {8}/ /gm; + } else { + $t = dump( $o ); + } + return '
' . encode_entities($t) . '
' . encode_entities( $diff->raw ) . '' . + pre_dump( $diff ); $request->print( $self->page( - title => $path . '/' . $project->name , - body => pre_dump( $project ) + title => $path . '/' . $project->name, + body => $body, ) ); $request->next; }