diff options
| -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] |