Commit | Line | Data |
---|---|---|
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; |