apparently intended.
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@22414
dc483132-0cff-0310-8789-
dd5450dbe970
set f [open $fname a]
- spawn tail -f $fname
+ spawn tail -f -s 0.01 $fname
set spawnid $spawn_id
set pid [exp_pid]
# helpful sometimes for debugging the test suite
proc export_debug_envvars { } {
global env
- foreach i {KDB5_UTIL KRB5KDC KADMIND KADMIN KADMIN_LOCAL KINIT KTUTIL KLIST RLOGIN RLOGIND FTP FTPD KPASSWD REALMNAME GSSCLIENT KPROPLOG} {
+ foreach i {KDB5_UTIL KRB5KDC KADMIND KADMIN KADMIN_LOCAL KINIT KTUTIL KLIST RLOGIN RLOGIN_FLAGS RLOGIND FTP FTPD KPASSWD REALMNAME GSSCLIENT KPROPLOG} {
global $i
if [info exists $i] { set env($i) [set $i] }
}