$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 ----------------------------------------------------
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);
}
}
-
-
/*----- That's all, folks -------------------------------------------------*/