From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 30 Sep 2018 23:42:22 +0000 (+0100)
Subject: i18n: i18n-diff-auditor: fix bra and ket regexps
X-Git-Tag: archive/debian/7.0_pre1~50
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=3863dba15266045f598312bb14306f4b43a3ca13;ds=sidebyside

i18n: i18n-diff-auditor: fix bra and ket regexps

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index 43e1c109..42ebe00d 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 },