From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 4 Nov 2001 17:29:40 +0000 (+0000)
Subject: More forgotten from #12843.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48b581a2b1cd70fdaddb7e065134902493db91a0;p=p5sagit%2Fp5-mst-13.2.git

More forgotten from #12843.

p4raw-id: //depot/perl@12845
---

diff --git a/lib/Math/BigInt/t/bigfltpm.inc b/lib/Math/BigInt/t/bigfltpm.inc
index 9599253..c11a8d9 100644
--- a/lib/Math/BigInt/t/bigfltpm.inc
+++ b/lib/Math/BigInt/t/bigfltpm.inc
@@ -43,16 +43,16 @@ while (<DATA>)
       } elsif ($f eq "fsstr") {
         $try .= '$x->fsstr();';
       } elsif ($f eq "parts") {
-        # ->bstr() to see if a BigFloat is returned
+        # ->bstr() to see if an object is returned
         $try .= '($a,$b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr();';
         $try .= '"$a $b";';
       } elsif ($f eq "length") {
         $try .= '$x->length();';
       } elsif ($f eq "exponent") {
-        # ->bstr() to see if a BigFloat is returned
+        # ->bstr() to see if an object is returned
         $try .= '$x->exponent()->bstr();';
       } elsif ($f eq "mantissa") {
-        # ->bstr() to see if a BigFloat is returned
+        # ->bstr() to see if an object is returned
         $try .= '$x->mantissa()->bstr();';
       } elsif ($f eq "fneg") {
         $try .= '$x->bneg();';
@@ -646,6 +646,10 @@ fcmpNaN:+0:
 -inf:-inf:0
 +inf:-inf:0
 -inf:+inf:0
+5:inf:-1
+-1:inf:-1
+5:-inf:-1
+-1:-inf:-1
 # return undef
 +inf:facmpNaN:
 facmpNaN:inf: