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
Architecture: i586
invalid tcl syntax in dejagnu test script
tcl8.0
expect5.25
dejagnu-1.3
*** 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
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.
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
Show quoted text
>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>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:
Show quoted text
>Release: 1.0pl1
>Environment:
System: Linux namaste 2.0.30 #2 Sun Oct 19 13:58:26 CDT 1997 i586 unknown>Environment:
Architecture: i586
Show quoted text
>Description:
invalid tcl syntax in dejagnu test script
Show quoted text
>How-To-Repeat:
build with debian linux/gnutcl8.0
expect5.25
dejagnu-1.3
Show quoted text
>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
Show quoted text
>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.
Show quoted text
>Unformatted: