diff options
author | Peter John Acklam <pjacklam@online.no> | 2010-12-16 15:54:39 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-26 14:37:06 -0800 |
commit | d7ccd3f387c9c740b7649e0b0cef2ea180da9231 (patch) | |
tree | ff325d99064f2872e1f6f9f0dac62323eb4e3bff /dist/Math-BigInt | |
parent | aa45dafa2821e33c669c8f497ab746aa7f86b0d6 (diff) | |
download | perl-d7ccd3f387c9c740b7649e0b0cef2ea180da9231.tar.gz |
Calc.pm: Fix _modpow() part of RT#63237
Diffstat (limited to 'dist/Math-BigInt')
-rw-r--r-- | dist/Math-BigInt/lib/Math/BigInt/Calc.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Math-BigInt/lib/Math/BigInt/Calc.pm b/dist/Math-BigInt/lib/Math/BigInt/Calc.pm index c778dcdf45..054e8984a7 100644 --- a/dist/Math-BigInt/lib/Math/BigInt/Calc.pm +++ b/dist/Math-BigInt/lib/Math/BigInt/Calc.pm @@ -2391,7 +2391,7 @@ sub _modpow # 0^a (mod m) = 0 if m != 0, a != 0 # 0^0 (mod m) = 1 if m != 0 - if (_is_one($c, $num)) { + if (_is_zero($c, $num)) { if (_is_zero($c, $exp)) { @$num = 1; } else { |