From 8d695ff6d0c58e33b46177f110483c2b1f7bafaf Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 8 Dec 2003 13:36:56 +0000 Subject: [PATCH] removing : & * at end of strings --- misc/translator/tmpl_process.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/misc/translator/tmpl_process.pl b/misc/translator/tmpl_process.pl index e50bcb7d30..2599aa31e8 100755 --- a/misc/translator/tmpl_process.pl +++ b/misc/translator/tmpl_process.pl @@ -221,8 +221,8 @@ sub update_strhash while(my $str = <$fh>) { $str =~ s/[\n\r\f]+$//; # chomps the trailing \n (or if file was edited with Windows) - $str =~ s/^\s+//; # remove trailing blanks - $str =~ s/\s+$//; + $str =~ s/^\s+//; # remove trailing blanks, ':' or '*' + $str =~ s/\s*\**:*\s*$//; # the line begins with letter(s) followed by optional words and/or spaces if($str =~ /^[ ]*[\w]+[ \w]*/) @@ -241,7 +241,7 @@ sub update_strhash close($fh); } - + return %{$strhash}; } -- 2.39.5