From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 6 Jan 2019 17:46:38 +0000 (+0000)
Subject: i18n: Fix pairwise-pocheck
X-Git-Tag: archive/debian/8.3~8
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=ed8b3338dc69463e96097de3bad257bf7dc3f725;p=dgit.git

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 6a71f64c..b97629ba 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
     }
 }