Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Properly credit John L. Allen

For some reason, I confused John L. Allen with Allen Day (another
Perl author). It was only in the comments -- the POD was still
correct.

Also add the option to push the git repository after a release.
  • Loading branch information...
commit 5162ea98d52bae8979fa306260cc28daf11e3d8d 1 parent b88eced
@jawnsy authored
Showing with 3 additions and 2 deletions.
  1. +1 −0  dist.ini
  2. +2 −2 lib/Math/Random/ISAAC/PP.pm
View
1  dist.ini
@@ -60,3 +60,4 @@ repository.type = git
[TestRelease] ; run tests before releasing
[ConfirmRelease] ; ask to confirm release/upload
[UploadToCPAN] ; push it to CPAN
+[Git::Push] ; push everything to remote repository
View
4 lib/Math/Random/ISAAC/PP.pm
@@ -153,8 +153,8 @@ sub _isaac {
$mm->[$i ] = $y = ($mm->[($x >> 2) & 0xff] + $aa + $bb) & 0xffffffff;
$r->[$i ] = $bb = ($mm->[($y >> 10) & 0xff] + $x) & 0xffffffff;
- # I don't actually know why the "0x03ffffff" stuff is for. It was in Allen
- # Day's code. If you can explain this please file a bug report.
+ # I don't actually know why the "0x03ffffff" stuff is for. It was in
+ # John L. Allen's code. If you can explain this please file a bug report.
$x = $mm->[$i+1];
$aa = (($aa ^ (0x03ffffff & ($aa >> 6))) + $mm->[($i+1+128) & 0xff]);
$aa &= 0xffffffff;
Please sign in to comment.
Something went wrong with that request. Please try again.