Fix key error variable.

diff --git a/Catacomb.pm b/Catacomb.pm
index 8c2fb73907beccaa75d244f26955faadde15e87a..816dd03ef50df533318da5c7f275a45f25cc46be 100644 (file)
--- 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{"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 ----------------------------------------------------
 Exporter::export_ok_tags(keys %EXPORT_TAGS);
 
 #----- That's all, folks ----------------------------------------------------

diff --git a/keystuff.c b/keystuff.c
index beb9a749a25725491ec64344f6c93dcef524d712..b22f4eba8c72b1562512ecba9b68eb012cf6be7c 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 *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);
   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 -------------------------------------------------*/
 /*----- That's all, folks -------------------------------------------------*/