chiark / gitweb /
key/key-io.c: Fix segfault opening `KOPEN_READ | KOPEN_NOFILE' key files.
[catacomb] / key / key-io.c
index df7cd53ff1a02189fbf4c328713d60fae5cf8525..b2dc9189b4f5c4bcf5ed6efb6c46d4b8efcbb2c1 100644 (file)
@@ -439,7 +439,7 @@ int key_open(key_file *f, const char *file, unsigned how,
 
   if ((how & KOPEN_MASK) == KOPEN_READ) {
     f->f &= ~KF_WRITE;
-    fclose(f->fp);
+    if (f->fp) fclose(f->fp);
     f->fp = 0;
   }