diff options
author | M.J.T. Guy <mjtg@cus.cam.ac.uk> | 1998-05-08 14:01:26 +1200 |
---|---|---|
committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1998-05-12 08:58:58 +1200 |
commit | c580bd34c5b00f144691f16a8cde563d14277368 (patch) | |
tree | 2e3bbda5f2b0be130b0bfbf8438c7e71461ae69c | |
parent | bdf560ec65a5adaa0baa01bf41071bb9ba7b96f8 (diff) | |
download | perl-c580bd34c5b00f144691f16a8cde563d14277368.tar.gz |
Remove dead code from pod2man
This fragment of code was left behind when the .IX fix was made to
pod2man. Since the X<> construct isn't used anywhere in the core pods,
this is currently something of a non-bug. It also means that this patch
is untested. :-)
p5p-msgid: E0yXmuT-0006Ll-00@ursa.cus.cam.ac.uk
-rw-r--r-- | pod/pod2man.PL | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index a90d9af987..e687ec0a42 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -1050,10 +1050,6 @@ sub mkindex { my ($entry) = @_; my @entries = split m:\s*/\s*:, $entry; push @Indices, ".IX Xref " . join ' ', map {qq("$_")} @entries; - for $entry (@entries) { - print qq("$entry" ); - } - print "\n"; return ''; } |