From 0cad850aac37146e9ab3e481aab49063f09f213f Mon Sep 17 00:00:00 2001
From: Johan Danielsson <joda@pdc.kth.se>
Date: Sun, 12 Oct 2003 15:57:42 +0000
Subject: [PATCH] (print_tickets): bail out if krb5_cc_next_cred returns error
 other than KRB5_CC_END

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@12990 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 kuser/klist.c | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/kuser/klist.c b/kuser/klist.c
index 7c8ec1cff..2d244537e 100644
--- a/kuser/klist.c
+++ b/kuser/klist.c
@@ -273,10 +273,10 @@ print_tickets (krb5_context context,
 	rtbl_set_prefix(ct, "  ");
 	rtbl_set_column_prefix(ct, COL_ISSUED, "");
     }
-    while (krb5_cc_next_cred (context,
-			      ccache,
-			      &cursor,
-			      &creds) == 0) {
+    while ((ret = krb5_cc_next_cred (context,
+				     ccache,
+				     &cursor,
+				     &creds)) == 0) {
 	if(do_verbose){
 	    print_cred_verbose(context, &creds);
 	}else{
@@ -284,6 +284,8 @@ print_tickets (krb5_context context,
 	}
 	krb5_free_creds_contents (context, &creds);
     }
+    if(ret != KRB5_CC_END)
+	krb5_err(context, 1, ret, "krb5_cc_get_next");
     ret = krb5_cc_end_seq_get (context, ccache, &cursor);
     if (ret)
 	krb5_err (context, 1, ret, "krb5_cc_end_seq_get");