cscvs to tla changeset 77

[onak.git] / keydb_file.c

diff --git a/keydb_file.c b/keydb_file.c
index 4c1a6a384b199018b37b80c9ef12b0f019b31a70..65e6b5f5b5d64c13092bf3ac685e765cfd625487 100644 (file)
--- a/keydb_file.c
+++ b/keydb_file.c
@@ -4,6 +4,8 @@
  * Jonathan McDowell <noodles@earth.li>
  *
  * Copyright 2002 Project Purple
+ *
+ * $Id: keydb_file.c,v 1.8 2003/06/04 20:57:09 noodles Exp $
  */
 
 #include <sys/types.h>
@@ -88,6 +90,8 @@ int fetch_key(uint64_t keyid, struct openpgp_publickey **publickey,
        if (fd > -1) {
                read_openpgp_stream(file_fetchchar, &fd, &packets);
                parse_keys(packets, publickey);
+               free_packet_list(packets);
+               packets = NULL;
                close(fd);
        }
 
@@ -125,6 +129,8 @@ int store_key(struct openpgp_publickey *publickey, bool intrans, bool update)
                
                write_openpgp_stream(file_putchar, &fd, packets);
                close(fd);
+               free_packet_list(packets);
+               packets = NULL;
        }
 
        return (fd > -1);