From 3fd0a52e0a50157adf72a9f7f35b5769feda315d Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sat, 14 Feb 2004 09:23:34 +0000
Subject: [PATCH] Fixed spurious warning about unescaped < inside cdata

---
 misc/translator/text-extract2.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index a00dd956f8..a65bd459c1 100755
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -153,7 +153,8 @@ 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 < near line $lc_0: $it\n" if $it =~ /</s;
+	warn "Warning: Unescaped < near line $lc_0: $it\n"
+		if !$cdata_mode_p && $it =~ /</s;
     } else {				# tag/declaration/processing instruction
 	my $ok_p = 0;
 	for (;;) {
-- 
2.39.5