From 250d1fcefc25757ef0dab9cc3281ca4f70edbf14 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Fri, 13 Feb 2004 00:48:52 +0000
Subject: [PATCH] Don't extract purely-numeric strings like "1" either

---
 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 a0391683f9..a0601a7adf 100755
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -232,8 +232,9 @@ sub text_extract (*) {
 	    }
 	}
     }
+    # Emit all extracted strings. Don't emit pure whitespace or pure numbers.
     for my $t (keys %text) {
-	printf "%s\n", $t unless $t =~ /^(?:\s|\&nbsp;)*$/s;
+	printf "%s\n", $t unless $t =~ /^(?:\s|\&nbsp;)*$/s || $t =~ /^\d+$/;
     }
 }
 
-- 
2.39.5