preprocess: novější Perl chce escapovat chlupaté závorky

diff --git a/all/preprocess b/all/preprocess
index dd82da8b8bed081c84bacaf871624d317ca94a2f..4b8b7b3ba5e3c34e0dcb4144bb34ed7d13c99cf1 100755 (executable)
--- a/all/preprocess
+++ b/all/preprocess
@@ -12,7 +12,7 @@ foreach my $f (@ARGV) {
                /^\\references/ && next;
                /^\\bye/ && last;
                s@\\(figure|fig|inlinefig|epsfbox){([^}]+)}@\\$1\{$d$2}@g;
-               s@\\(twofigures){([^}]+)}({[^}]+}{[^}]+}){([^}]+)}@\\$1\{$d$2}$3\{$d$4}@g;
+               s@\\(twofigures)\{([^}]+)}(\{[^}]+}\{[^}]+})\{([^}]+)}@\\$1\{$d$2}$3\{$d$4}@g;
                print;
        }
        close X;