X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/660b443cc58d4dd4e92730104429fb64d78c7075..a1a90aaf554eb974e39e34b513747eb666180776:/keystuff.c

diff --git a/keystuff.c b/keystuff.c
index 377afaf..b8c9519 100644
--- a/keystuff.c
+++ b/keystuff.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: keystuff.c,v 1.1 2004/04/02 18:04:01 mdw Exp $
+ * $Id$
  *
  * Useful key-management functions
  *
@@ -26,25 +26,15 @@
  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------* 
- *
- * $Log: keystuff.c,v $
- * Revision 1.1  2004/04/02 18:04:01  mdw
- * Initial checkin.
- *
- */
-
 /*----- 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)