[rsync/rsync.git] / tweak_manpage

#!/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;
Commit	Line	Data
5e61bdb4 WD	1	#!/usr/bin/perl -i -p
	2	s{(--\w[-\w]+)}{ $x = $1; $x =~ s/-/\\-/g; $x }eg;
	3	s/(?<!\\)-(['"\d*])/\\-$1/g;
	4	s/ -- / \\-\\- /g;
	5	s#(['"(= /,])-#$1\\-#g;
	6	s/(\\fB)-/$1\\-/g;
	7	s/(\[\w)-(\w\])/$1\\-$2/g;
	8	s{(\\f\(CW.*?\\fP)}{ $x = $1; $x =~ s/(?<!\\)-/\\-/g; $x }eg;
	9	s/(\.\w+)-/$1\\-/g;