From bcd9210309ee4d9fc2afc281d188326071425a58 Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Sat, 20 Nov 2004 17:20:59 +0000
Subject: [PATCH] Fix key error variable.

---
 Catacomb.pm | 2 ++
 keystuff.c  | 4 +---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Catacomb.pm b/Catacomb.pm
index 8c2fb73..816dd03 100644
--- a/Catacomb.pm
+++ b/Catacomb.pm
@@ -79,6 +79,8 @@ $EXPORT_TAGS{"mp"} = [qw(mp gf mp_loadb mp_loadl mp_loadb2c mp_loadl2c
 $EXPORT_TAGS{"pgen"} = [qw(newprime primegen limleegen
 			   filterstepper $rabin_tester
 			   $pg_events $pg_evspin $pg_subev)];
+$EXPORT_TAGS{"key"} = [qw($keyerror)];
+
 Exporter::export_ok_tags(keys %EXPORT_TAGS);
 
 #----- That's all, folks ----------------------------------------------------
diff --git a/keystuff.c b/keystuff.c
index beb9a74..b22f4eb 100644
--- 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 -------------------------------------------------*/
-- 
2.11.0