Dave Rolsky wrote:
On Wed, 4 Jun 2003, John Peacock wrote:
my $nan = abs($posinf - $posinf); # "1.#QNAN"


Any updates on this? The Win32 problems are the only thing holding me back from the next release at this point, I think.


I'm sorry, I didn't send you a diff for the change, because I didn't know if you felt it was appropriate to force a mathematic operation in order to get Win32 to acknowledge that this is NAN. This change should be harmless elsewhere and should make Win32 pass:


--- 20infinite.t~       2003-06-02 14:33:19.000000000 -0400
+++ 20infinite.t        2003-06-13 14:07:43.000000000 -0400
@@ -10,7 +10,7 @@ my $pos = DateTime::Infinite::Future->ne
 my $neg = DateTime::Infinite::Past->new;
 my $posinf = 100 ** 100 ** 100;
 my $neginf = -1 * $posinf;
-my $nan = $posinf - $posinf;
+my $nan = abs($posinf - $posinf);

 # infinite date math
 {


John


--
John Peacock
Director of Information Research and Technology
Rowman & Littlefield Publishing Group
4720 Boston Way
Lanham, MD 20706
301-459-3366 x.5010
fax 301-429-5747



Reply via email to