Commit 0b699731 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(extracting_expect): Set $var to the empty string even on failure, to

	avoid some TCL errors.
parent 3ad26897
......@@ -214,7 +214,9 @@ proc extracting_expect {regex var grp} {
puts -nonewline "."
flush stdout
}
set $var ""
expect {
-re "^$line_leader$regex$nl" {
set $var $expect_out($grp,string)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment