X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/bdf77f6dbd9205c70639fb682059e4ba0761c767..bfdf19cbde6d9f5cdb740d258fcc439a4a412ab0:/Catacomb::MP::Prime.pod

diff --git a/Catacomb::MP::Prime.pod b/Catacomb::MP::Prime.pod
index 8bd543b..7f856d4 100644
--- 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;
     }