From dbf1d99cb049da74a4a91a6ae1a752be0299d636 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb62281@gmail.com>
Date: Thu, 6 Dec 2018 14:07:40 +1100
Subject: 	* runtest.exp: Replace archaic use of [string match] with
 "eq".

Signed-off-by: Ben Elliston <bje@gnu.org>
---
 runtest.exp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'runtest.exp')

diff --git a/runtest.exp b/runtest.exp
index a389c53..b6e5c64 100644
--- a/runtest.exp
+++ b/runtest.exp
@@ -199,16 +199,16 @@ proc transform { name } {
     global host_triplet
     global board
 
-    if {[string match $target_triplet $host_triplet]} {
+    if { $target_triplet eq $host_triplet } {
 	return $name
     }
-    if {[string match "native" $target_triplet]} {
+    if { $target_triplet eq "native" } {
 	return $name
     }
     if {[board_info host exists no_transform_name]} {
 	return $name
     }
-    if {[string match "" $target_triplet]} {
+    if { $target_triplet eq "" } {
 	return $name
     } else {
 	if {[info exists board]} {
@@ -536,7 +536,7 @@ verbose "Verbose level is $verbose"
 #
 # get the users login name
 #
-if {[string match "" $logname]} {
+if { $logname eq "" } {
     if {[info exists env(USER)]} {
 	set logname $env(USER)
     } else {
@@ -623,7 +623,7 @@ load_file [file join $base_dir $local_init_file]
 # command line.
 #
 
-if {[expr {[string match "." $objdir] || [string match $srcdir $objdir]}]} {
+if { $objdir eq "." || $objdir eq $srcdir } {
     set objdir $base_dir
 } else {
     load_file [file join $objdir $local_init_file]
-- 
cgit v1.1