From 182b4a66609ffd5366575d72351cd8174cf68145 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 17 Jul 2012 13:16:40 +0100
Subject: [PATCH] podwrapper: Subclass Pod::Man so we can fix the way links are
 generated.

---
 podwrapper.pl.in | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/podwrapper.pl.in b/podwrapper.pl.in
index ac08ec8c5..7ae3e29b4 100755
--- a/podwrapper.pl.in
+++ b/podwrapper.pl.in
@@ -235,11 +235,28 @@ foreach (@verbatims) {
 }
 
 # Output man page.
+SUBMAN: {
+    package Podwrapper::Man;
+
+    use vars qw(@ISA $VERSION);
+    @ISA = qw(Pod::Man);
+    $VERSION = $package_version;
+
+    # Override the L<> method.
+    sub cmd_l
+    {
+        my ($self, $attrs, $text) = @_;
+        return $text;
+    }
+}
+
 if ($man) {
-    my $parser = Pod::Man->new (name => $name,
-                                release => $release, section => $section,
-                                center => "Virtualization Support",
-                                date => $date);
+    my $parser = Podwrapper::Man->new (
+        name => $name,
+        release => $release, section => $section,
+        center => "Virtualization Support",
+        date => $date
+    );
     my $output;
     $parser->output_string (\$output);
     $parser->parse_string_document ($content)
@@ -251,7 +268,7 @@ if ($man) {
 }
 
 # Output HTML.
-SUBCLASS: {
+SUBHTML: {
     # Subclass Pod::Simple::XHTML.  See the documentation.
     package Podwrapper::XHTML;