blob: 30708e9edbc316fca391da76993a78e19f1a89b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
From: Niko Tyni <ntyni@debian.org>
Subject: Escape backslashes in .IX entries
Bug-Debian: http://bugs.debian.org/521256
Origin: upstream, http://git.eyrie.org/?p=perl/podlators.git;a=commit;h=8de2177170c79800d81d480227643c1c2ce84a0a
Applicable parts of podlators upstream git commit
release/2.2.2-6-g8de2177
---
lib/Pod/Man.pm | 1 +
lib/Pod/t/man.t | 11 ++++++++++-
2 files changed, 11 insertions(+), 1 deletions(-)
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm
index 71a4d7a..7662935 100644
--- a/lib/Pod/Man.pm
+++ b/lib/Pod/Man.pm
@@ -712,6 +712,7 @@ sub outindex {
for (@output) {
my ($type, $entry) = @$_;
$entry =~ s/\"/\"\"/g;
+ $entry =~ s/\\/\\\\/g;
$self->output (".IX $type " . '"' . $entry . '"' . "\n");
}
}
diff --git a/lib/Pod/t/man.t b/lib/Pod/t/man.t
index 419cce3..c4588bc 100755
--- a/lib/Pod/t/man.t
+++ b/lib/Pod/t/man.t
@@ -17,7 +17,7 @@ BEGIN {
}
unshift (@INC, '../blib/lib');
$| = 1;
- print "1..25\n";
+ print "1..26\n";
}
END {
@@ -482,3 +482,12 @@ Some raw nroff.
.PP
More text.
###
+=head1 INDEX
+
+Index entry matching a whitespace escape.X<\n>
+###
+.SH "INDEX"
+.IX Header "INDEX"
+Index entry matching a whitespace escape.
+.IX Xref "\\n"
+###
--
tg: (daf8b46..) fixes/pod2man-index-backslash (depends on: upstream)
|
