[gdb/testsuite, tclint] Fix lib/debuginfod-support.exp

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index ef508942881f01bbb273c536267644dd8d8ae21a..1700b94b4061d9230469ba477bff035cbd7cdef7 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -37,7 +37,6 @@ exclude = [
 "gdb/testsuite/lib/aarch64-scalable.exp",
 "gdb/testsuite/lib/check-test-names.exp",
 "gdb/testsuite/lib/cp-support.exp",
-"gdb/testsuite/lib/debuginfod-support.exp",
 "gdb/testsuite/lib/d-support.exp",
 "gdb/testsuite/lib/dwarf.exp",
 "gdb/testsuite/lib/fortran.exp",

diff --git a/gdb/testsuite/lib/debuginfod-support.exp b/gdb/testsuite/lib/debuginfod-support.exp
index 7a8baf427f92f0c8190bb69e23cbedf62cbc5776..ad6963e7af4779d20a7604cb82a18f1963dc1226 100644 (file)
--- a/gdb/testsuite/lib/debuginfod-support.exp
+++ b/gdb/testsuite/lib/debuginfod-support.exp
@@ -18,7 +18,7 @@
 # Return true if the debuginfod tests should be run, otherwise, return
 # false.
 proc allow_debuginfod_tests {} {
-    if [is_remote host] {
+    if {[is_remote host]} {
        return false
     }
 
@@ -189,7 +189,7 @@ proc start_debuginfod { db debugdir } {
 proc stop_debuginfod { } {
     global debuginfod_spawn_id
 
-    if [info exists debuginfod_spawn_id] {
+    if {[info exists debuginfod_spawn_id]} {
        kill_wait_spawned_process $debuginfod_spawn_id
        unset debuginfod_spawn_id
     }