From: Martin Mares <mj@ucw.cz>
Date: Sun, 8 Jul 2018 14:22:44 +0000 (+0200)
Subject: preprocess: novější Perl chce escapovat chlupaté závorky
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=31b5aed41e9f712e901a7f812fd211590997dcd0;p=ga.git

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

diff --git a/all/preprocess b/all/preprocess
index dd82da8..4b8b7b3 100755
--- 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;