From: M. J. T. Guy <mjtg@cus.cam.ac.uk>
Date: Fri, 24 Jul 1998 18:29:53 +0000 (+0100)
Subject: fix behavior of <=> on bigints
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e3c7ef20866011e0e98de5b78863094f34fd2bd6;p=p5sagit%2Fp5-mst-13.2.git

fix behavior of <=> on bigints
	Message-Id: <E0yzlfF-0004kz-00@taurus.cus.cam.ac.uk>
	Subject: [PATCH] Re: Math::BigInt <=> op is not correct.

p4raw-id: //depot/maint-5.005/perl@1652
---

diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm
index bbd15e4..ef4af61 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 ebaecac..4357975 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