X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/fcd15e0b7a3d0f0ca2f30953573f8d1f6b8e8bd2..9b46ee0d9f144189d9df836347402c3b3df97936:/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;
     }