diff options
author | Jacob Bachmeyer <jcb62281@gmail.com> | 2018-12-06 14:07:40 +1100 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2018-12-06 14:07:40 +1100 |
commit | dbf1d99cb049da74a4a91a6ae1a752be0299d636 (patch) | |
tree | 0a4588f5391e31bdd6fbae28d84584a2b6d07f51 | |
parent | 31971cc219e3ac335603e279435030a788ddbaa5 (diff) | |
download | dejagnu-dbf1d99cb049da74a4a91a6ae1a752be0299d636.zip dejagnu-dbf1d99cb049da74a4a91a6ae1a752be0299d636.tar.gz dejagnu-dbf1d99cb049da74a4a91a6ae1a752be0299d636.tar.bz2 |
* runtest.exp: Replace archaic use of [string match] with "eq".
Signed-off-by: Ben Elliston <bje@gnu.org>
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | runtest.exp | 10 |
2 files changed, 9 insertions, 5 deletions
@@ -1,3 +1,7 @@ +2018-12-06 Jacob Bachmeyer <jcb62281@gmail.com> + + * runtest.exp: Replace archaic use of [string match] with "eq". + 2018-12-06 Ben Elliston <bje@gnu.org> * doc/dejagnu.texi (compile Procedure): Remove old node. 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] |