| Subject: | bpow() doesn't handle infinity correctly |
This case should return inf:
$ perl -MMath::BigInt -wle '$x = Math::BigInt -> binf("+"); print $x ** $x'
NaN
These two cases should return 0:
$ perl -MMath::BigInt -wle '$x = Math::BigInt -> binf("+"); print $x ** (-$x)'
NaN
$ perl -MMath::BigFloat -wle '$x = Math::BigFloat -> binf("+"); print $x ** (-$x)'
inf
These bugs have been around for ages.