--- trunk/lib/Frey/Shell/Grep.pm 2008/12/02 01:15:21 669 +++ trunk/lib/Frey/Shell/Grep.pm 2008/12/02 01:16:20 670 @@ -8,7 +8,7 @@ use English; has pattern => ( - documentation => 'grep for pattern', + documentation => 'grep pattern', is => 'rw', isa => 'Str', required => 1, @@ -42,6 +42,7 @@ open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!"; while(<$fh>) { my ( $path, $line, $text ) = split(/:/,$_,3); + $text = $self->html_escape( $text ); if ( $path ne $last_path ) { $html .= qq|
$path
|; }