diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/testenv.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/testenv.exp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.base/testenv.exp b/gdb/testsuite/gdb.base/testenv.exp index 1599b72..4dea043 100644 --- a/gdb/testsuite/gdb.base/testenv.exp +++ b/gdb/testsuite/gdb.base/testenv.exp @@ -68,6 +68,12 @@ proc find_env {varname} { -re "var: \(\[^\r\n\]*\)\r\n$gdb_prompt $" { set var $expect_out(1,string) } + -re "$gdb_prompt $" { + # If this fails, bail out, otherwise we get stuck in + # an infinite loop. The caller will end up emiting a + # FAIL. + return "<fail>" + } } if {[string match "$varname=*" $var]} { |