diff options
| -rw-r--r-- | lib/Math/BigInt.pm | 8 | ||||
| -rwxr-xr-x | t/lib/bigintpm.t | 3 |
2 files changed, 6 insertions, 5 deletions
diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm index bbd15e4a88..ef4af613c3 100644 --- a/lib/Math/BigInt.pm +++ b/lib/Math/BigInt.pm @@ -82,8 +82,8 @@ sub external { #(int_num_array) return num_str # Negate input value. sub bneg { #(num_str) return num_str local($_) = &bnorm(@_); - vec($_,0,8) ^= ord('+') ^ ord('-') unless $_ eq '+0'; - s/^H/N/; + return $_ if $_ eq '+0' or $_ eq 'NaN'; + vec($_,0,8) ^= ord('+') ^ ord('-'); $_; } @@ -106,7 +106,7 @@ sub bcmp { #(num_str, num_str) return cond_code } elsif ($y eq 'NaN') { undef; } else { - &cmp($x,$y); + &cmp($x,$y) <=> 0; } } @@ -393,7 +393,7 @@ are not numbers, as well as the result of dividing by zero. =head1 Autocreating constants After C<use Math::BigInt ':constant'> all the integer decimal constants -in the given scope are converted to C<Math::BigInt>. This convertion +in the given scope are converted to C<Math::BigInt>. This conversion happens at compile time. In particular diff --git a/t/lib/bigintpm.t b/t/lib/bigintpm.t index ebaecac21a..4357975f2b 100755 --- a/t/lib/bigintpm.t +++ b/t/lib/bigintpm.t @@ -10,7 +10,7 @@ use Math::BigInt; $test = 0; $| = 1; -print "1..246\n"; +print "1..247\n"; while (<DATA>) { chop; if (s/^&//) { @@ -116,6 +116,7 @@ abc:+0:NaN +124:+123:+1 -123:-124:+1 -124:-123:-1 ++100:+5:+1 &badd abc:abc:NaN abc:+0:NaN |