--- trunk/lib/Frey/Pod.pm 2008/11/05 08:20:45 271 +++ trunk/lib/Frey/Pod.pm 2008/11/15 16:11:27 345 @@ -30,10 +30,10 @@ my $self = shift; my $class = $self->class; use Pod::Simple::HTML; - my $path = eval { $self->package_path( $class ) }; + my $path = eval { $self->class_path( $class ) }; if ( $@ ) { warn $@; - return; + return qq|

$@

|; } my $pod = read_file( $path ); my $converter = Pod::Simple::HTML->new(); @@ -44,7 +44,7 @@ $body =~ s{.*?]+>}{}s; $body =~ s{\s*\s*$}{}; $body =~ s!%3A%3A!::!g; - $body =~ s{]*)>}{}g; + $body =~ s{]*)>}{}g; $body =~ s{]*)>}{}g; $body =~ s!\n\t