[2806] in Kerberos-V5-bugs

home help back first fref pref prev next nref lref last post

krb5-misc/487: krb5 bug

daemon@ATHENA.MIT.EDU (Joseph W Norton)
Sun Nov 2 19:58:22 1997

Resent-From: gnats@rt-11.MIT.EDU (GNATS Management)
Resent-To: krb5-unassigned@RT-11.MIT.EDU
Resent-Reply-To: krb5-bugs@MIT.EDU, norton@alum.mit.edu
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


>Number:         487
>Category:       krb5-misc
>Synopsis:       syntax bug in dejagnu test
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    krb5-unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   unknown
>Arrival-Date:   Sun Nov 02 19:58:03 EST 1997
>Last-Modified:
>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:
>Unformatted:

home help back first fref pref prev next nref lref last post