From 74bcdcc023015b5006e8a444780ab3ed5784a9e5 Mon Sep 17 00:00:00 2001
From: Jonas Häggqvist <rasher@rasher.dk>
Date: Sun, 21 Jun 2009 00:03:41 +0000
Subject: Properly match IDs - require a perfect match, not just a substring
 match. Oops.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21436 a1c6a512-1295-4272-9138-f99709370657
---
 tools/langtool.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tools/langtool.pl b/tools/langtool.pl
index 59db1cf8a5..72108f42c6 100755
--- a/tools/langtool.pl
+++ b/tools/langtool.pl
@@ -176,7 +176,7 @@ foreach my $file (@ARGV) {
         }
 
         if ($deprecate) {
-            if ($id ne "" and grep(/$id/, @ids)) {
+            if ($id ne "" and grep(/^$id$/, @ids)) {
                 # Set desc
                 $line =~ s/\s*desc:.*/  desc: deprecated/;
                 # Set user
@@ -193,19 +193,19 @@ foreach my $file (@ARGV) {
         }
         elsif ($changetarget) {
             # Change target if set and it's the same as $from
-            if ($id ne "" and grep(/$id/, @ids) and $location =~ /source|dest|voice/ and $target eq $from) {
+            if ($id ne "" and grep(/^$id$/, @ids) and $location =~ /source|dest|voice/ and $target eq $from) {
                 $line =~ s/\Q$from/$to/;
             }
         }
         elsif ($changesource) {
             # Change string if $target is set and matches $s_target
-            if ($id ne "" and grep(/$id/, @ids) and $target eq $s_target and $location eq "source") {
+            if ($id ne "" and grep(/^$id$/, @ids) and $target eq $s_target and $location eq "source") {
                 $line =~ s/\Q$string/$to/;
             }
         }
         elsif ($changedesc) {
             # Simply change the desc line if the id matches
-            if ($id ne "" and grep(/$id/, @ids)) {
+            if ($id ne "" and grep(/^$id$/, @ids)) {
                 $line =~ s/\s*desc:.*/  desc: $to/;
             }
         }
-- 
cgit v1.2.3