--- trunk/lib/Frey/Pod.pm 2008/11/16 00:37:34 350 +++ trunk/lib/Frey/Pod.pm 2008/11/16 15:49:49 356 @@ -18,6 +18,7 @@ use File::Slurp; use Data::Dump qw/dump/; +use Pod::Find qw/pod_where/; sub request { my ( $self, $req ) = @_; @@ -30,8 +31,8 @@ my $self = shift; my $class = $self->class; use Pod::Simple::HTML; - my $path = eval { $self->class_path( $class ) }; - return $self->error( $@ ) if $@; + my $path = pod_where( { -inc => 1 }, $class ); + return $self->error( "Can't find pod for $class" ) unless $path; my $pod = read_file( $path ); my $converter = Pod::Simple::HTML->new(); my $body; @@ -41,8 +42,8 @@ $body =~ s{.*?]+>}{}s; $body =~ s{\s*\s*$}{}; $body =~ s!%3A%3A!::!g; - $body =~ s{]*)>}{}g; - $body =~ s{]*)>}{}g; +# $body =~ s{]*)>}{}g; + $body =~ s{]*)>([^<]+)<([^>]+)>}{$4<$5>◊<$5>}g; $body =~ s!\n\t

!; $body =~ s!

!!;