Can parse a key file. Cleared up raw confusion.

[chiark-tcl.git] / base / tcmdifgen

diff --git a/base/tcmdifgen b/base/tcmdifgen
index 90f0818588b8cda4ab3b7e8ed0b861d88b3fd7f1..dce3153f3ac0e3247d2ff6822134ac29a1276001 100755 (executable)
--- a/base/tcmdifgen
+++ b/base/tcmdifgen
@@ -72,7 +72,7 @@ sub parse ($$) {
                badsyntax($wh,$.,"bad entry");
            }
            $tables{$c_table}{$c_entry}{A} = [ ];
-       } elsif (@i==2 && m/^(\w+)\s+\.\.\.$/ && defined $c_entry) {
+       } elsif (@i==2 && m/^\.\.\.\s+(\w+)$/ && defined $c_entry) {
            $tables{$c_table}{$c_entry}{V}= $1;
        } elsif (@i==2 && m/^(\??)([a-z]\w*)\s*(\S.*)/
                 && defined $c_entry) {