From: mdw <mdw>
Date: Sat, 20 Nov 2004 17:20:59 +0000 (+0000)
Subject: Fix key error variable.
X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/commitdiff_plain/bcd9210309ee4d9fc2afc281d188326071425a58

Fix key error variable.
---

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 -------------------------------------------------*/