From 0a9cd4aba120ea32843b98e092c45842bb1f1bed Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Thu, 12 Feb 2004 17:44:59 +0000
Subject: [PATCH] Warn about <<Prev

---
 misc/translator/text-extract2.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index 274f21f5b9..4fbcbb278f 100755
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -97,6 +97,7 @@ sub next_token_internal (*) {
     # FIXME the following (the [<\s] part) is an unreliable HACK :-(
     } elsif ($readahead =~ /^(?:[^<]|<[<\s])+/s) {	# non-space normal text
 	($kind, $it, $readahead) = (KIND_TEXT, $&, $');
+	warn "Warning: Unescaped < in line $lc: $it\n" if $it =~ /</s;
     } else {				# tag/declaration/processing instruction
 	my $ok_p = 0;
 	for (;;) {
-- 
2.39.5