(krb5_get_init_creds_opt_get_error): clear error string on error.

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@17881 ec53bebd-3082-4978-b11e-865c3cabbd6b

lib/krb5/init_creds.c

@@ -388,6 +388,8 @@ krb5_get_init_creds_opt_get_error(krb5_context context,
     }
 
     ret = copy_KRB_ERROR(*error, opt->opt_private->error);
+    if (ret)
+	krb5_clear_error_string(context);
 
     return 0;
 }