summaryrefslogtreecommitdiff
path: root/po4a
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2019-01-06 17:46:38 +0000
committerIan Jackson <ijackson@chiark.greenend.org.uk>2019-01-06 17:49:05 +0000
commited8b3338dc69463e96097de3bad257bf7dc3f725 (patch)
tree6bfc0637501de6ebee74277e3b01de01ebb28c75 /po4a
parent0802b0bd3906ee36bf618cbbaa1b64a90120bcc6 (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>
Diffstat (limited to 'po4a')
-rwxr-xr-xpo4a/pairwise-pocheck2
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
}
}