/[Frey]/branches/no-pager/lib/Frey/Pod.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/no-pager/lib/Frey/Pod.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 128 by dpavlin, Mon Jul 14 23:39:56 2008 UTC revision 130 by dpavlin, Mon Jul 14 23:50:16 2008 UTC
# Line 42  sub markup { Line 42  sub markup {
42          $converter->parse_string_document($pod);          $converter->parse_string_document($pod);
43          $body =~ s{.*?<body [^>]+>}{}s;          $body =~ s{.*?<body [^>]+>}{}s;
44          $body =~ s{</body>\s*</html>\s*$}{};          $body =~ s{</body>\s*</html>\s*$}{};
45            $body =~ s!%3A%3A!::!g;
46          $body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/pod/$1"$2>}g;          $body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/pod/$1"$2>}g;
47          $body =~ s!</li>\n\t<ul>!<ul>!;          $body =~ s!</li>\n\t<ul>!<ul>!;
48          $body =~ s!</ul>!</ul></li>!;          $body =~ s!</ul>!</ul></li>!;
Legend:
Removed from v.128  
changed lines
  Added in v.130
  ViewVC Help
Powered by ViewVC 1.1.26