Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

cleanup

  • Loading branch information...
commit cc4e0d8b9df22e668d2c950afd3a1f53cd237315 1 parent 378e397
@kraih authored
Showing with 2 additions and 4 deletions.
  1. +2 −4 lib/Mojolicious/Plugin/PodRenderer.pm
View
6 lib/Mojolicious/Plugin/PodRenderer.pm
@@ -82,11 +82,9 @@ sub register {
$dom->find('a[href]')->each(
sub {
my $attrs = shift->attrs;
- if ($attrs->{href} =~ /^http\:\/\/search\.cpan\.org\/perldoc/) {
- $attrs->{href}
+ $attrs->{href} =~ s/%3A%3A/\//gi
+ if $attrs->{href}
=~ s/^http\:\/\/search\.cpan\.org\/perldoc\?/$perldoc/;
- $attrs->{href} =~ s/%3A%3A/\//gi;
- }
}
);
Please sign in to comment.
Something went wrong with that request. Please try again.