* default.exp (setup_root_shell): Don't try to use the procedure

	"-" when handling error messages from rlogin.

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@15563 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/tests/dejagnu/config/ChangeLog b/src/tests/dejagnu/config/ChangeLog
index 773ae8c85f70aaf797bd5065bdb7b32ecff5ecf0..c7f21da60d1f27d5da6e76626168592891cce9e0 100644 (file)
--- a/src/tests/dejagnu/config/ChangeLog
+++ b/src/tests/dejagnu/config/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-04  Tom Yu  <tlyu@mit.edu>
+
+       * default.exp (setup_root_shell): Don't try to use the procedure
+       "-" when handling error messages from rlogin.
+
 2003-06-03  Ken Raeburn  <raeburn@mit.edu>
 
        * default.exp (setup_root_shell): Handle error messages indicating

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index 5f9aa2734a3ee77f68aa92fa00cb1858c76a12ff..dee8509ee6ab1bf0faa20ef877fe42d11732f3ca 100644 (file)
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -2237,9 +2237,7 @@ proc setup_root_shell { testname } {
            stop_root_shell
            return 0
        }
-       "usage: rlogin" -
-       "illegal option -- x" -
-       "invalid option -- x" {
+       -re "usage: rlogin|illegal option -- x|invalid option -- x" {
            note "$testname: rlogin doesn't like command-line flags"
            unsupported "$testname"
            set timeout $old_timeout