- Timestamp:
- Jan 2, 2014, 11:53:09 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/visviewer.tcl
r4097 r4100 288 288 } 289 289 # The response should be in the form "serverName major.minor ...". 290 set pattern {^[A-Za-z] + [0-9].[0-9].*}290 set pattern {^[A-Za-z][A-Za-z0-9_]* [0-9]+\.[0-9].*} 291 291 292 292 while { ![regexp $pattern $data match] } {
Note: See TracChangeset
for help on using the changeset viewer.