From ed8b3338dc69463e96097de3bad257bf7dc3f725 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 6 Jan 2019 17:46:38 +0000 Subject: 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 --- po4a/pairwise-pocheck | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 } } -- cgit v1.2.3