mirror of
https://github.com/RsyncProject/rsync.git
synced 2026-10-22 22:04:15 -04:00
A perl script that does appropriate backslash escaping of '-' chars
in manpages.
This commit is contained in:
1 parent
f964ac5eee
commit
5e61bdb4d5
1 file changed
+9
Executable
+9
@@ -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;
|
||||
Reference in new issue
Block a user