From c92902177f2d4ad4bc0342286d4796ca4c899d22 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 10 May 2011 01:15:57 -0500
Subject: [PATCH] Fix relational operator tests to work properly with NaN
 values.

---
 src/core/Num.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/core/Num.pm b/src/core/Num.pm
index 2f122b630bc..e49fc027ec2 100644
--- a/src/core/Num.pm
+++ b/src/core/Num.pm
@@ -197,7 +197,7 @@ multi sub infix:«==»(Num $a, Num $b) {
 }
 
 multi sub infix:«!=»(Num $a, Num $b) {
-    pir::iseq__INN( $a, $b) ?? False !! True # note reversed
+    pir::isne__INN( $a, $b) ?? True !! False
 }
 
 multi sub infix:«<»(Num $a, Num $b) {
@@ -209,11 +209,11 @@ multi sub infix:«>»(Num $a, Num $b) {
 }
 
 multi sub infix:«<=»(Num $a, Num $b) {
-    pir::isgt__INN( $a, $b) ?? False !! True # note reversed
+    pir::isle__INN( $a, $b) ?? True !! False
 }
 
 multi sub infix:«>=»(Num $a, Num $b) {
-    pir::islt__INN( $a, $b) ?? False !! True # note reversed
+    pir::isge__INN( $a, $b) ?? True !! False
 }
 
 # Arithmetic operators