X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/a24b5cfdde0be71a5bb2b85d94be3b93c7719e2a..f9952aec1cf6c64a5681308eea817b6113a37433:/keystuff.c

diff --git a/keystuff.c b/keystuff.c
index 6df6cec..b8c9519 100644
--- a/keystuff.c
+++ b/keystuff.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: keystuff.c,v 1.2 2004/04/08 01:36:21 mdw Exp $
+ * $Id$
  *
  * Useful key-management functions
  *
@@ -28,15 +28,13 @@
 
 /*----- Header files ------------------------------------------------------*/
 
-/*----- Data structures ---------------------------------------------------*/
-
-/*----- Static variables --------------------------------------------------*/
+#include "catacomb-perl.h"
 
 /*----- Main code ---------------------------------------------------------*/
 
-void warn_keyreporter(const char *file, int line, char *err, void *p)
+void warn_keyreporter(const char *file, int line, const char *err, void *p)
 {
-  warn("%s:%i: keyfile error: %s", file, line, msg);
+  warn("%s:%i: keyfile error: %s", file, line, err);
 }
 
 SV *keyerr(int rc)