aboutsummaryrefslogtreecommitdiff
path: root/libctf/testsuite/config/default.exp
diff options
context:
space:
mode:
Diffstat (limited to 'libctf/testsuite/config/default.exp')
-rw-r--r--libctf/testsuite/config/default.exp5
1 files changed, 5 insertions, 0 deletions
diff --git a/libctf/testsuite/config/default.exp b/libctf/testsuite/config/default.exp
index 4bac9c4..357c4ee 100644
--- a/libctf/testsuite/config/default.exp
+++ b/libctf/testsuite/config/default.exp
@@ -21,6 +21,11 @@
# Written by Jeffrey Wheat (cassidy@cygnus.com)
#
+# Don't run anything if Tcl is too old to have try / catch.
+if { ! $have_tcl_try } {
+ log_and_exit
+}
+
if ![info exists ld] then {
set ld [findfile $base_dir/../ld/ld-new $base_dir/../ld/ld-new [transform ld]]
}