Fix key error variable.

[catacomb-perl] / keystuff.c

diff --git a/keystuff.c b/keystuff.c
index beb9a74..b22f4eb 100644 (file)
--- a/keystuff.c
+++ b/keystuff.c
@@ -64,7 +64,7 @@ SV *keyerr(int rc)
   SV *sv;
   if (!rc)
     return (&PL_sv_yes);
-  sv = perl_get_sv("Catacomb::Key::error", TRUE);
+  sv = perl_get_sv("Catacomb::keyerror", TRUE);
   sv_setiv(sv, rc);
   sv_setpv(sv, key_strerror(rc));
   SvIOK_on(sv);
@@ -80,6 +80,4 @@ void keyfile_dec(Key_File *kf)
   }
 }
 
-
-
 /*----- That's all, folks -------------------------------------------------*/