[gnome-online-accounts] identity: fix another principal leak

[Ray Strode <halfline src gnome org>]

commit 9f4fff98762e89dbc2bd1d4b642978ba29c70f7f
Author: Ray Strode <rstrode redhat com>
Date:   Fri May 9 07:29:45 2014 -0400

    identity: fix another principal leak
    
    Spotted by valgrind.
    
    https://bugzilla.gnome.org/show_bug.cgi?id=729865

 src/goaidentity/goakerberosidentity.c |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)
---
diff --git a/src/goaidentity/goakerberosidentity.c b/src/goaidentity/goakerberosidentity.c
index 2d3ed0e..1596a5f 100644
--- a/src/goaidentity/goakerberosidentity.c
+++ b/src/goaidentity/goakerberosidentity.c
@@ -238,7 +238,7 @@ get_identifier (GoaKerberosIdentity  *self,
   krb5_principal principal;
   krb5_error_code error_code;
   char *unparsed_name;
-  char *identifier;
+  char *identifier = NULL;
 
   if (self->priv->credentials_cache == NULL)
     return NULL;
@@ -284,12 +284,14 @@ get_identifier (GoaKerberosIdentity  *self,
       g_debug ("GoaKerberosIdentity: Error parsing principal identity name: %s",
                error_message);
       krb5_free_error_message (self->priv->kerberos_context, error_message);
-      return NULL;
+      goto out;
     }
 
   identifier = g_strdup (unparsed_name);
   krb5_free_unparsed_name (self->priv->kerberos_context, unparsed_name);
 
+out:
+  krb5_free_principal (self->priv->kerberos_context, principal);
   return identifier;
 }