commit 6246d7557d30e17f7d0c1d16373d70560abb9d0a
Author: Slaven Rezic <
[email protected]>
Date: Thu Oct 22 00:57:27 2009 +0200
* patch link creation so it shows to search.cpan.org
diff --git a/lib/Marek/Pod/HTML.pm b/lib/Marek/Pod/HTML.pm
index 337b72b..64afd32 100644
--- a/lib/Marek/Pod/HTML.pm
+++ b/lib/Marek/Pod/HTML.pm
@@ -1358,7 +1358,12 @@ sub _expand_ptree {
{ CLASS => 'POD_LINK', HREF => $destfile };
}
else {
- warn "Cannot find page `$page' at L<> on line $line\n";
+ require URI::Escape;
+ #warn "Cannot find page `$page' at L<> on line $line\n";
+ $self->{_link_pagemark} = $self->{_link_sectionmark} = 'a';
+ $self->{_link_pageopt} =
+ $self->{_link_sectionopt} =
+ { CLASS => 'POD_LINK', HREF => "
http://search.cpan.org/perldoc?" . URI::Escape::uri_escape($page) };
}
} else {
$dest = $self->{-mycache};