From ebc6a117822d587e210a6c30233480f33d9c18d8 Mon Sep 17 00:00:00 2001
From: Patrick Dugnolle <patrick.dugnolle@bnpparibas.com>
Date: Wed, 18 Apr 2007 23:34:18 -0700
Subject: [PATCH] [perl #42614] NAN_COMPARE_BROKEN.DIV_BY_NAN_BUG (with patch)
 From: patrick.dugnolle@bnpparibas.com (via RT) <perlbug-followup@perl.org>
 Message-ID: <rt-3.6.HEAD-6655-1176989657-125.42614-75-0@perl.org>

p4raw-id: //depot/perl@30991
---
 pp.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/pp.c b/pp.c
index f532c59..208a1a2 100644
--- a/pp.c
+++ b/pp.c
@@ -1306,7 +1306,11 @@ PP(pp_divide)
 #endif /* PERL_TRY_UV_DIVIDE */
     {
 	dPOPPOPnnrl;
+#if defined(NAN_COMPARE_BROKEN) && defined(Perl_isnan)
+	if (! Perl_isnan(right) && right == 0.0)
+#else
 	if (right == 0.0)
+#endif
 	    DIE(aTHX_ "Illegal division by zero");
 	PUSHn( left / right );
 	RETURN;
-- 
2.7.4