mirror of
https://github.com/RsyncProject/rsync.git
synced 2026-03-12 11:29:05 -04:00
9 lines
259 B
Perl
Executable File
9 lines
259 B
Perl
Executable File
#!/usr/bin/perl -i -p
|
|
s{(--\w[-\w]+)}{ $x = $1; $x =~ s/-/\\-/g; $x }eg;
|
|
s/(?<!\\)-(['"\d*])/\\-$1/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;
|