--- trunk/lib/Frey/Pod.pm 2008/07/15 17:14:33 136 +++ trunk/lib/Frey/Pod.pm 2008/08/31 17:40:33 178 @@ -27,8 +27,8 @@ } sub markup { - my ( $self, $class ) = @_; - $class ||= $self->class; + my $self = shift; + my $class = $self->class; use Pod::Simple::HTML; my $path = eval { $self->package_path( $class ) }; return if $@; @@ -41,7 +41,7 @@ $body =~ s{.*?]+>}{}s; $body =~ s{\s*\s*$}{}; $body =~ s!%3A%3A!::!g; - $body =~ s{]*)>}{}g; + $body =~ s{]*)>}{}g; $body =~ s!\n\t

!; $body =~ s!

!!;