Update for new keydata interface.

[catacomb-perl] / Catacomb::MP::Prime.pod

diff --git a/Catacomb::MP::Prime.pod b/Catacomb::MP::Prime.pod
index 8bd543b..7f856d4 100644 (file)
--- a/Catacomb::MP::Prime.pod
+++ b/Catacomb::MP::Prime.pod
@@ -512,7 +512,6 @@ long job.
     sub PG_TRY {
       my ($me, $ev) = @_;
       my $r = $ev->rand();
-      my $w = $r->mprange($me->[0]->m());
       return _test($r, $me->[0]) && _test($r, $me->[1]) ? 
         PGEN_PASS : PGEN_FAIL;
     }