diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-01-06 17:46:38 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-01-06 17:49:05 +0000 |
commit | ed8b3338dc69463e96097de3bad257bf7dc3f725 (patch) | |
tree | 6bfc0637501de6ebee74277e3b01de01ebb28c75 | |
parent | 0802b0bd3906ee36bf618cbbaa1b64a90120bcc6 (diff) |
i18n: Fix pairwise-pocheck
The condition to spot only bare < did not work. Fix it.
Tcl does not have look-behind assertions, so use . and
a look-ahead assertion.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | po4a/pairwise-pocheck | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/po4a/pairwise-pocheck b/po4a/pairwise-pocheck index 6a71f64..b97629b 100755 --- a/po4a/pairwise-pocheck +++ b/po4a/pairwise-pocheck @@ -54,7 +54,7 @@ proc check_msg {msgid msgstr} { global for_emsg set for_emsg "msgid=[list $msgid] msgstr=[list $msgstr]" check_equal "un-escaped non-pod < count (missing B or I?)" { - regexp -all {(?!\b[IBCLEFSXZ])\<} $m + regexp -all {(?:^!(?!\b[IBCLEFSXZ]).)\<} $m } } |