Key mangling, and elliptic curves.

[catacomb-perl] / keystuff.c

diff --git a/keystuff.c b/keystuff.c
index 6df6cec..b8c9519 100644 (file)
--- 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)