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; | |
b6855ddc | 4 | s#(['"(= /,])-(?!-)#$1\\-#g; |
5e61bdb4 WD |
5 | s/(\\fB)-/$1\\-/g; |
6 | s/(\[\w)-(\w\])/$1\\-$2/g; | |
7 | s{(\\f\(CW.*?\\fP)}{ $x = $1; $x =~ s/(?<!\\)-/\\-/g; $x }eg; | |
8 | s/(\.\w+)-/$1\\-/g; |