chiark / gitweb /
i18n: Fix pairwise-pocheck
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 6 Jan 2019 17:46:38 +0000 (17:46 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 6 Jan 2019 17:49:05 +0000 (17:49 +0000)
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>
po4a/pairwise-pocheck

index 6a71f64..b97629b 100755 (executable)
@@ -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
     }
 }