diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/kadmin/testing/util/ChangeLog | 5 | ||||
| -rw-r--r-- | src/kadmin/testing/util/tcl_kadm5.c | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/src/kadmin/testing/util/ChangeLog b/src/kadmin/testing/util/ChangeLog index 50414d6dc..1682ef750 100644 --- a/src/kadmin/testing/util/ChangeLog +++ b/src/kadmin/testing/util/ChangeLog @@ -1,3 +1,8 @@ +Fri Nov 1 13:16:43 1996 Barry Jaspan <bjaspan@mit.edu> + + * tcl_kadm5.c (unparse_err): update for new tl_data semantics + [krb5-admin/140] + Mon Oct 21 16:31:35 1996 Barry Jaspan <bjaspan@mit.edu> * tcl_kadm5.c: add unparse ability for V2 principal fields diff --git a/src/kadmin/testing/util/tcl_kadm5.c b/src/kadmin/testing/util/tcl_kadm5.c index cad3a93ad..533b3b7fb 100644 --- a/src/kadmin/testing/util/tcl_kadm5.c +++ b/src/kadmin/testing/util/tcl_kadm5.c @@ -345,6 +345,7 @@ static Tcl_DString *unparse_err(kadm5_ret_t code) case KADM5_AUTH_CHANGEPW: code_string = "KADM5_AUTH_CHANGEPW"; break; case KADM5_GSS_ERROR: code_string = "KADM5_GSS_ERROR"; break; + case KADM5_BAD_TL_TYPE: code_string = "KADM5_BAD_TL_TYPE"; break; case OSA_ADB_DUP: code_string = "OSA_ADB_DUP"; break; case OSA_ADB_NOENT: code_string = "ENOENT"; break; case OSA_ADB_DBINIT: code_string = "OSA_ADB_DBINIT"; break; @@ -475,6 +476,7 @@ static Tcl_DString *unparse_tl_data(krb5_tl_data *tl_data, int n_tl_data) } Tcl_DStringInit(str); + Tcl_DStringStartSublist(str); for (; tl_data; tl_data = tl_data->tl_data_next) { Tcl_DStringStartSublist(str); sprintf(buf, "%d", tl_data->tl_data_type); @@ -484,6 +486,7 @@ static Tcl_DString *unparse_tl_data(krb5_tl_data *tl_data, int n_tl_data) Tcl_DStringAppendElement(str, tl_data->tl_data_contents); Tcl_DStringEndSublist(str); } + Tcl_DStringEndSublist(str); return str; } |