X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=src%2Fgenerator.ml;h=5b6e1eb370f4404f6ead184fd6182b898222a7fd;hp=1e6c0bc2bc7838c19b9c7bbb412deda08b69c29d;hb=cdc726dcfc8bd0b9351cc6879df1e35f37af7fb8;hpb=12baf36e87c6a0968939e98b1969bc1b9d8cb0bc

diff --git a/src/generator.ml b/src/generator.ml
index 1e6c0bc..5b6e1eb 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -2883,6 +2883,7 @@ check_state (guestfs_h *g, const char *caller)
 
       pr "  if (ctx.hdr.status == GUESTFS_STATUS_ERROR) {\n";
       pr "    error (g, \"%%s\", ctx.err.error_message);\n";
+      pr "    free (ctx.err.error_message);\n";
       pr "    guestfs_end_busy (g);\n";
       pr "    return %s;\n" error_code;
       pr "  }\n";