From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 4 Feb 2015 11:48:07 +0000 (-0500)
Subject: infnan: in case NaN is broken by being zero, avoid dividing by it
X-Git-Tag: v5.21.9~195
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/db0562f0f6a78b868db85f5ec10f73940b254224?ds=sidebyside

infnan: in case NaN is broken by being zero, avoid dividing by it

So that the test doesn't die too early.
---

diff --git a/t/op/infnan.t b/t/op/infnan.t
index 70f0a7d..dc1ff22 100644
--- a/t/op/infnan.t
+++ b/t/op/infnan.t
@@ -292,7 +292,12 @@ is($NaN * 2, $NaN, "twice NaN is NaN");
 is($NaN / 2, $NaN, "half of NaN is NaN");
 
 is($NaN * $NaN, $NaN, "NaN * NaN is NaN");
-is($NaN / $NaN, $NaN, "NaN / NaN is NaN");
+SKIP: {
+    if ($NaN == 0) {
+        skip "NaN looks like zero, avoiding dividing by it", 1;
+    }
+    is($NaN / $NaN, $NaN, "NaN / NaN is NaN");
+}
 
 for my $f (@printf_fmt) {
     is(sprintf("%$f", $NaN), "NaN", "$NaN sprintf %$f is NaN");