Don't extract TMPL_VAR's as if they were translatable

diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index 5f7479e..a6bce1d 100755 (executable)
--- 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+$/;
     }
 }