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>

diff --git a/po4a/pairwise-pocheck b/po4a/pairwise-pocheck
index 6a71f64c1b27bc2e0df568513685b94882502f0a..b97629bac627b2f051c317f7a58c17d43931c81c 100755 (executable)
--- 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
     }
 }