diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 00:42:22 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 00:54:38 +0100 |
commit | 3863dba15266045f598312bb14306f4b43a3ca13 (patch) | |
tree | 569b41cc2106ad72211ffd86adcdf34dfcef7e1d | |
parent | 61e45b33282a021e491082470152c97371a3903f (diff) |
i18n: i18n-diff-auditor: fix bra and ket regexps
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | i18n-diff-auditor | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/i18n-diff-auditor b/i18n-diff-auditor index 43e1c10..42ebe00 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -144,9 +144,9 @@ sub semiparse ($) { Q => $q, V => $v}; } elsif (s{^$perlop_re|^\;}{}) { push @o, { T => 'op', E => $&, P => $& }; - } elsif (s/[[{(]//) { + } elsif (s/^[[{(]//) { push @o, { T => 'bra', E => $&, P => $& }; - } elsif (s/[]})]//) { + } elsif (s/^[]})]//) { push @o, { T => 'ket', E => $&, P => $& }; } elsif (s/^( [\$\@\%] )( \{ )//x) { push @o, { T => 'deref', E => $1, P => $1 }, |