Change "error" to "perror".

This commit is contained in:
Rob Savoye 1994-03-02 05:00:26 +00:00
parent 25200748a2
commit d8e882a899

View file

@ -11,7 +11,7 @@ proc dotest {} {
-re " 00008000 +.single" { pass $testname; set x 1 }
-re " ........ +.single" { fail $testname; set x 1 }
-re "\[^\n\]*\n" { }
timeout { error "timeout\n"; break }
timeout { perror "timeout\n"; break }
eof { break }
}
}