From: Wayne Davison <wayned@samba.org>
Date: Tue, 24 Oct 2006 00:09:18 +0000 (+0000)
Subject: A perl script that does appropriate backslash escaping of '-' chars
X-Git-Tag: v2.6.9pre3~10
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5e61bdb4d5ad6ecdd4ec9f0b0f7db181831771ee;p=thirdparty%2Frsync.git

A perl script that does appropriate backslash escaping of '-' chars
in manpages.
---

diff --git a/tweak_manpage b/tweak_manpage
new file mode 100755
index 00000000..1efac261
--- /dev/null
+++ b/tweak_manpage
@@ -0,0 +1,9 @@
+#!/usr/bin/perl -i -p
+s{(--\w[-\w]+)}{ $x = $1; $x =~ s/-/\\-/g; $x }eg;
+s/(?<!\\)-(['"\d*])/\\-$1/g;
+s/ -- / \\-\\- /g;
+s#(['"(= /,])-#$1\\-#g;
+s/(\\fB)-/$1\\-/g;
+s/(\[\w)-(\w\])/$1\\-$2/g;
+s{(\\f\(CW.*?\\fP)}{ $x = $1; $x =~ s/(?<!\\)-/\\-/g; $x }eg;
+s/(\.\w+)-/$1\\-/g;