From 56a6d59237450bada8b92e5dfb87d07e005db3c4 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Tue, 29 Apr 2003 12:38:32 +0000
Subject: Anchor the regexes better, some of them caused problems with perl
 5.8.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3629 a1c6a512-1295-4272-9138-f99709370657
---
 tools/binlang | 6 +++---
 tools/uplang  | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/tools/binlang b/tools/binlang
index 2f3753a7cd..bb47238db7 100755
--- a/tools/binlang
+++ b/tools/binlang
@@ -60,7 +60,7 @@ while(<ENG>) {
     }
     # get rid of DOS newlines
     $_ =~ s/\r//g;
-    if($_ =~ / *([a-z]+): *(.*)/) {
+    if($_ =~ /^ *([a-z]+): *(.*)/) {
         ($var, $value) = ($1, $2);
         $set{$var} = $value;
 
@@ -75,13 +75,13 @@ while(<ENG>) {
 close(ENG);
 
 while(<LANG>) {
-    if($_ =~ / *\#/) {
+    if($_ =~ /^ *\#/) {
         # comment
         next;
     }
     # get rid of DOS newlines
     $_ =~ s/\r//g;
-    if($_ =~ / *([a-z]+): *(.*)/) {
+    if($_ =~ /^ *([a-z]+): *(.*)/) {
         ($var, $value) = ($1, $2);
   #      print "$var => $value\n";
 
diff --git a/tools/uplang b/tools/uplang
index d0897ba46c..41730fb3d3 100755
--- a/tools/uplang
+++ b/tools/uplang
@@ -11,12 +11,12 @@ MOO
 my %ids;
 open(ENG, "<$ARGV[0]");
 while(<ENG>) {
-    if($_ =~ / *\#/) {
+    if($_ =~ /^ *\#/) {
         # comment
         next;
     }
     $_ =~ s/\r//g;
-    if($_ =~ / *([a-z]+): *(.*)/) {
+    if($_ =~ /^ *([a-z]+): *(.*)/) {
         ($var, $value) = ($1, $2);
   #      print "$var => $value\n";
 
@@ -37,13 +37,13 @@ close(ENG);
 undef %set;
 open(NEW, "<$ARGV[1]");
 while(<NEW>) {
-    if($_ =~ / *\#/) {
+    if($_ =~ /^ *\#/) {
         # comment
         next;
     }
     $_ =~ s/\r//g;
 
-    if($_ =~ / *([a-z]+): *(.*)/) {
+    if($_ =~ /^ *([a-z]+): *(.*)/) {
         ($var, $value) = ($1, $2);
 
         $set{$var} = $value;
-- 
cgit v1.2.3