chiark / gitweb /
generate: Fix { } in &${ to actually output the { }
[subdirmk.git] / generate
index 4014471a43019cec4e683d1d3ab60e4b82e6edc8..cfb6642132e77003f119ad994196682d3068b113 100755 (executable)
--- a/generate
+++ b/generate
@@ -255,12 +255,14 @@ sub process_input_mk ($$$$) {
                    : s{^(.*?)($esc)}{}) { od $_; last; }
            od $1;
            if ($2 eq '{') {
+               od $2;
                $ddbl++;
                next;
            } elsif ($2 eq '}') {
+               od $2;
                next if --$ddbl;
                $pop_nest->('eval');
-               od '}}';
+               od '}';
                next;
            }
            if (s{^\\$esc}{}) { od "$$esclitr" }