Correction d'un core dump du � une non d�allocation de l'entr�e

d'un label format dans la table de hash en cas d'erreur.

1 files changed, 1 insertions, 0 deletions

diff --git a/generic/Attrs.c b/generic/Attrs.c
index c3e48ad..175a0ee 100644
--- a/generic/Attrs.c
+++ b/generic/Attrs.c
@@ -325,6 +325,7 @@ LabelFormatCreate(Tcl_Interp	*interp,
       Tcl_AppendResult(interp, "invalid label format specification \"",
 		       ptr, "\"", NULL);
     lf_error:
+      Tcl_DeleteHashEntry(entry);
       ZnListFree(fields);
       return NULL;
     }