From 2afa50bdda5088402ebfe486c0295eb9dc33f117 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sat, 14 Feb 2004 07:13:09 +0000
Subject: [PATCH] Don't extract TMPL_VAR's as if they were translatable

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

diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index 5f7479e815..a6bce1de1b 100755
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -292,10 +292,11 @@ sub text_extract (*) {
 	    }
 	}
     }
-    # Emit all extracted strings. Don't emit pure whitespace or pure numbers.
+    # Emit all extracted strings.
+    # Don't emit pure whitespace, pure numbers, or TMPL_VAR's.
     for my $t (keys %text) {
 	printf "%s\n", $t
-	    unless $t =~ /^(?:\s|\&nbsp$re_end_entity)*$/os || $t =~ /^\d+$/;
+	    unless $t =~ /^(?:\s|\&nbsp$re_end_entity|$re_tmpl_var)*$/os || $t =~ /^\d+$/;
     }
 }
 
-- 
2.39.2