From 777cc164b437ebbe3cd823712af267bfc73e8ea2 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 26 Jan 2004 10:41:50 +0000
Subject: [PATCH] removing UNUSED; from input string (useless except if string
 list is not updated & an UNUSED string becomes used...)

---
 misc/translator/tmpl_process.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/misc/translator/tmpl_process.pl b/misc/translator/tmpl_process.pl
index 4d6970d2e7..73a1e66ada 100755
--- a/misc/translator/tmpl_process.pl
+++ b/misc/translator/tmpl_process.pl
@@ -184,7 +184,7 @@ sub install_strhash
 		# opens handle for output
 		if( !open($fh_out, "> $out_file_tmp") )
 		{
-			warn "Can't write $out_file : $!\n";
+			warn "Can''t write $out_file : $!\n";
 			close($fh_in);
 			next;
 		}
@@ -205,6 +205,7 @@ sub install_strhash
 					{
 						# changing text
 						my $subst = %{$strhash}->{$text};
+						$subst =~ s/UNUSED;//;
 						# escaping \|()[{}^$*+?.
 						$text =~ s/\\/\\\\/g;
 						$text =~ s/\//\\\//g;
@@ -228,6 +229,7 @@ sub install_strhash
 					} else {
 						# changing text
 						my $subst = %{$strhash}->{$text};
+						$subst =~ s/UNUSED;//;
 						# escaping \|()[{}^$*+?.
 						$text =~ s/\\/\\\\/g;
 						$text =~ s/\//\\\//g;