Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary
MIME-Version: 1.0
X-Mailer: MIME-tools 5.411 (Entity 5.404)
X-RT-Original-Encoding: iso-8859-1
Content-Length: 2751

From norton@alum.mit.edu  Sun Nov  2 19:57:54 1997
Received: from MIT.EDU (PACIFIC-CARRIER-ANNEX.MIT.EDU [18.69.0.28]) by rt-11.MIT.EDU (8.7.5/8.7.3) with SMTP id TAA19192 for <bugs@RT-11.MIT.EDU>; Sun, 2 Nov 1997 19:57:54 -0500
Received: from zoom.realtime.net by MIT.EDU with SMTP
	id AA01655; Sun, 2 Nov 97 19:57:58 EST
Received: from alum.mit.edu..realtime.net (norton@max1-30.ip.realtime.net [205.238.168.30]) by zoom.bga.com (8.6.12/8.6.12) with SMTP id SAA11892; Sun, 2 Nov 1997 18:57:47 -0600
Message-Id: <199711030057.SAA11892@zoom.bga.com>
Date: Sun, 2 Nov 1997 18:57:47 -0600
From: Joseph W Norton <norton@alum.mit.edu>
Reply-To: norton@alum.mit.edu
To: krb5-bugs@MIT.EDU
Cc: norton@alum.mit.edu
Subject: krb5 bug
X-Send-Pr-Version: 3.99

>Number:         487
>Category:       krb5-misc
>Synopsis:       syntax bug in dejagnu test
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    epeisach
>State:          closed
>Class:          sw-bug
>Submitter-Id:   unknown
>Arrival-Date:   Sun Nov 02 19:58:03 EST 1997
>Last-Modified:  Sun Nov 09 10:12:03 EST 1997
>Originator:     Joseph W Norton
>Organization:
                none
>Release:        1.0pl1
>Environment:
System: Linux namaste 2.0.30 #2 Sun Oct 19 13:58:26 CDT 1997 i586 unknown
Architecture: i586

>Description:

                invalid tcl syntax in dejagnu test script

>How-To-Repeat:
                build with debian linux/gnu
                tcl8.0
                expect5.25
                dejagnu-1.3

>Fix:

*** krb5-1.0pl1/src/tests/dejagnu/krb-standalone/gssftp.exp.orig        Sun Nov 
 2 15:47:42 1997
--- krb5-1.0pl1/src/tests/dejagnu/krb-standalone/gssftp.exp     Sun Nov  2 15:47
:49 1997
***************
*** 344,350 ****
  # we know there is no .netrc file.
  if [info exists env(HOME)] {
      set home $env(HOME)
! } else if [info exists home] {
      unset home
  }
  set env(HOME) $tmppwd
--- 344,350 ----
  # we know there is no .netrc file.
  if [info exists env(HOME)] {
      set home $env(HOME)
! } elseif [info exists home] {
      unset home
  }
  set env(HOME) $tmppwd


--
Joe Norton
email:norton@alum.mit.edu

>Audit-Trail:

Responsible-Changed-From-To: krb5-unassigned->epeisach
Responsible-Changed-By: epeisach
Responsible-Changed-When: Sun Nov  9 10:10:16 1997
Responsible-Changed-Why:
I am looking at the problem. I am familiar with the test suite.

State-Changed-From-To: open-closed
State-Changed-By: epeisach
State-Changed-When: Sun Nov  9 10:11:11 1997
State-Changed-Why:
I have verified the failure mode with newer versions of expect. I have
also verified that the older versions of expect accept "elseif" instead
of "else if" so I am checking in the change. 

Thank you for the bug report.
>Unformatted: