diff options
Diffstat (limited to 'tests/support')
-rw-r--r-- | tests/support/util.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/support/util.tcl b/tests/support/util.tcl index 6741b719a..fd72dcf75 100644 --- a/tests/support/util.tcl +++ b/tests/support/util.tcl @@ -72,8 +72,8 @@ proc sanitizer_errors_from_file {filename} { } proc getInfoProperty {infostr property} { - if {[regexp "\r\n$property:(.*?)\r\n" $infostr _ value]} { - set _ $value + if {[regexp -lineanchor "^$property:(.*?)\r\n" $infostr _ value]} { + return $value } } |