Bug#521256: Bug report, perl-doc warnings when perldoc perlre is run

[Russ Allbery]

Niko Tyni <ntyni at debian.org> writes:

> These warnings come from groff; the pod input corresponding to the first
> warning is
>
>   X<\t> X<\n> X<\r> X<\f> X<\e> X<\a> X<\l> X<\u> X<\L> X<\U> X<\E> X<\Q>
>   X<\0> X<\c> X<\N> X<\x>
>
> which results in 
>
> .IX Xref "\t \n \r \f \e \a \l \u \L \U \E \Q \0 \c \N \x"
>
> A small testcase is
>
>  printf '=head1 foo\n\nX<\\n> X<\\r>'|pod2man |groff -man >/dev/null
>
> Russ, would you like a CPAN ticket about this? It still happens
> with podlators 2.2.2.

No, here's a patch that should fix it.  I just need to find time to do
another release.  I think this is correct, although mostly the whole .IX
thing isn't used, so it doesn't really matter how we fix it as long as the
error message goes away.

--- a/lib/Pod/Man.pm
+++ b/lib/Pod/Man.pm
@@ -715,6 +715,7 @@ sub outindex {
     for (@output) {
         my ($type, $entry) = @$_;
         $entry =~ s/\"/\"\"/g;
+        $entry =~ s/\\/\\\\/g;
         $self->output (".IX $type " . '"' . $entry . '"' . "\n");
     }
 }

-- 
Russ Allbery (rra at debian.org)               <http://www.eyrie.org/~eagle/>